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RESTRACT 


THE RKi1/RKOS DYNAMIC TEST SIMS AT 
i. DEMONSTRATING THE ELECTRO MECHANICAL ITREGRITY 
OF THE ORI\ 


Senin THE LINEAR POSITIONER CONTROL AND SPEED 


é. 
3. SERIFYING THE INTREGITY OF THE BEAL WRITE LOGIC 
4: seeitsing A TIMER FOR THE SEEK FUNCTION. 


THI 13,8 TEST ONE LEVEL SIGHER THAN THE BASIC FKL 
LOGIC TESTS. 


E.R] OR RKV11 R 
D. 1-8 RKOS OR b Sof ASSES (DRIVE TYPES MAY BE MIXED) 


PRELIMINARY PROGRAMS 


Rail Coeie TESt fx (RINGEE=L1-beRKk 


EXECUTION TIME 


IRST PASS 1i/ MEMORY 
Feces AEPROKIWTELY. © MINTES. (ulTHOUT THE SEEK 
TIMER AND GRAPH, ADOIT fone 5 maneTE S FOR THESE). 
LESS FOR FASTER MACHINES OF MEMORIES. 


STARTING AODRESS 
oe ANY NORMAL MODE OF OPERATION. ALL SWITCHESS 


2i0 FOR FUNCTION SELECTING PROGRAM (CONVERSATIONAL 
MODE). 


PROGRAM CONTROL MODES & OPERATOR ACTION 
PAPER TAPE LOADING 
MCOE 


001 
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RKDP DUMP MODE 


PAPER TAPE LOADING 


ERD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
FOR ABSOLUTE 3 


NEKE-SURE THA] THE DSIVES 12 BE CHECKED ARE. LORDED 
KITS DISKS. 8 


Oe , ep. 
eS hetves That esse plant ah! TES +: pelvis Ts - 
LOAD ADDRESS 200 

SET SWITCHES IF DESIRED (SEE SEC 6.0) 

PRESS START. ; 

THE PROGRAM IDENTIFIES ITSELF 


RK11 DYNAMIC TEST 
MAINDEC-11-DZRKL-D 


paints, ut, THER FIND WHICH ae eo 
om DE EES TED bn e*LSBE CES YO THE DRIVE NUMBER: 


DRIVES PRESENT 
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ate TYPING OUT THE DRIVE NUMBER THAT IS GOING TO 
STED, EXECUTION OF THE TESTS START. 


QFTER ALL THE TESTS HAVE BEEN EXECUTED ON ONE DRIVE 
THEY ARE EXECUTED ON THE NEXT DRIVE IF PRESENT. 
THIS IS REPERTED TILL ALL DRIVES ARE TESTED 
AT THE END OF A PASS THE FOLLOWING IS TYPED OUT: 
END PASS x X20,1,2...... 


CONTROL IS BACK TO THE BEGINNING OF THE 
PROGRAM AND RE-EXECUTION BEGINS. 


THE PROGRAM IS LOADED BY THE RKDP MONITOR. 
ae penn. SELECT ANY SWITCHES YOU WANT AND PRESS 
ART. 


THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUT: 
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°T9 TEST DRIVE °N* HALT PROGRAM. REMOVE RKDP PACK AND REPLACE IT 
1] R 0¢ 4 a AND RESTART PROGRAM’ 


RKDP CHAIN MODE 

THE PROGRAM IS CHAIN Dwr oor ere ON ORIVE 
*N’, AFTER IDENTIFYING ITSELF, THE FOLLOWING MESSAGE 
RAPPERS: 

"DRIVE "N’ NOT TESTED’ 

aay pave NOT BE TESTED SINCE THE RVD Pack IS ON 


ACT11 MODE 


IDENTIEYiNe ITSELF, mai SEF, BSCERTEING TPE, NER OF sprives 


0 TEST ERCH OF THEM AS 


DRIVE SELECTION 

Big Oe WG A a 
THEN ean FAs IVE TBD rE LOCK’. 
SWITCH OPTIONS 
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* SOFTWARE’ v SuayCH RE ccaTeD Be LBcar ton NTE (8) (8 
SETTING rots SOF Ei Tene 5 ONTROLLED THROUGH A wre BOAR 
Boutite WHICH IS YING. 3 TEENTROL 6’. "ee SRocRAM hi 


ZE THE "CONTROL G’ whenever the pyres enters 
the scope routine or Ce. anew test. 


AS AN OCTAL NUMBER IN RESPONSE 
i alg RL aie ENTERED aS 
*SWR = NNNNNN NEW =° 
ne TIME “ee Es SETTING ARE ere THE ENTIRE SWITCH REGISTER 


an SeTEERE at Ee cbt See WIEINE erates OO 


TCH ENTRY. 
WITH HARDWARE SWITCH REGISTERS “Hy *SOFTWARE’ SWITCH 


ie Parte peayered merefehcee 2 byte Be Tete ME 


AND THE PROC S DESCRIBED ABOVE MUST 


6.2 


6.4 


Bite at Hes BY GEOR 
Swi l3>2] TNH SAIEy? ERE OR PRINTOUTS 
Swi le! ish ONE mS TO THE PREVIOUS 
«lp . RK11 REGISTERS ON ERROR 
ait sal ON RESE 
Sw OS) =] rae SH SPECIFIC ERROR 
Sw< 08> =] LOOP ON Test INDICATED BY USER (SEE 
sper |B rye 
(Us>s T 
Sw D4 = PRINT THE COMPLETE GRAPH 
Swi02>2} TERMINATE FUNCTION SELECTED BY USER 
Suc O22] DROP THE hutee OF cre i XIMUM 
Sw<00>=1 Bet OMPEEE RN f ops AB, OR 


WRITE CHECKED (FUNCTION SELECTION 
PROGRAM) 


SW< 15> 
THE PROGRAM HALTS ON ENCOUNTERING AN af BROR AFTER 
YPING OUT THE ERROR MESSAGE PERTINENT 


INE SRMATION. PRESSING hsonbhatenal RESTORES NORMAL 
OPERATION OF THE PROGRAM 


>: 
THE PROGRAM LOOPS ON THE SUBTEST THAT. 1S BEING 
EXECUTED THE SWITCH IS PUT ON. THIS SWITCH IS 
USED NORMALLY ALONG WITH SW 15. 
SW< 13> 
THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 


USED WHEN LOOPING ON TEST (SW 14) OR LOOOPING ON 
ERROR (SW 9). 


SWi< le? 


Haste SWITCH De eee THE THE PREVIOUS TO aye] fate ent 


NOTE THAT IN DOING £0 ANY INITYAL TSATION FING DONE 
AT THE BEGINNING OF ig | plates! WILL BE DONE AGAIN 
ee Tine. SEE SEC. 6.7 FOR A DIFFERENT KINO OF 


SW< 11> 
THIS SWITCH ALLOWS DUMPING OF ALL FK11 REGISTERS ON 


- eee ee ee eee 





6.6 


6.8 
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ENCOUNTERING AN ERROF 











SW< 10> 


RINGS A BELLM@® ERROR, USEFUL WHEN ERRO® TYPEOUT IS 
INHIBITED. 


SW< 09> 


THI SUITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
L THAT UNLIKE SWle THE INITIALIZATION 

SE DONE TN SHS SREE Se THIS SUITCH TS HELPFUL WHEN 
PAR pre A. zr : SF rie REPEATED US NG 
I NT TERS YOU WANT TO S ON THE 
PARAMETER IN ERROR. (EXAMPLE: RKDA IS BEING WRITTEN 
ae a eC ae nok, YOu eRe ees 10 
G0 eee tee AY ING ERROR one HITTING ERROR ON 
THE S&1TH PATTERN. IN THIS CASE SW 9 WILL GIVE YOU 


A SCOPE LOOP ON THE S61TH PATTERN ONLY. 


SW< 08> “ 


THIS SWITCH IS USED TO SELECT A PARTICULAR E57 FOR 
EXECUTION. WHEN THE PROGRAM IS STARTED (200) WITH 
THIS SWITCH SET, THE FOLLOWING MESSAGE APEARS: 


OCTAL TESTS? 


re uANTS 10 SELECT, FOLLOMED BY CARRIAGE RETURN. 


THE SELECTED TEST IS EXECUTED AGAIN AND AGAIN. 
GET fl THIS L Lert PUT SW 8 ote TO 0. wote> Wik unt 


RESUME NORMAL OPERATION OF THE PR 
BEFORE TEST 4 CAN BE EXECUTED TEST 2 SHOULD avg 
rer > DONE AND TEST & SHOULD HAVE BEEN DONE BEFOR 


SW<O0&> 


THIS SWITCH WHEN SET S M 
Uren. THIS SWITCH CAN BE SET OR RESE 
SEEK TIMER EXECUTION, AND E E 
OCCURING. 


cw<os> <* 


THIS SWITCH MAKES THE PROGRAM TYPE THE GR IF 

RESET SEFORE THE oem UP ROUTINE iS ENTERED, 
THE GRAPHS WILL BE SKIPPED ENTIRELY. IT CAN BE RESET 
EVEN AFTER SOME OF THE POINTS HAVE BEEN ALOTTED, TO 
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| 6.13 


6.12 


7.0 
















THIS SWITCH IS ee We SELECT / THE COMPLETE GRAPH 
OUTPUT (SEEK TIME ALL JZYLINDERS ARE PLOTTED) 


eR ELAR ie Mabe 


SW< 03> 
bat SWITCH WHEN SET TERM . ge THE ee OF THE 


ge Se Pal piiet  c 
FINET 3 Bag! NITIATED/ NOW. User YOu fiaNT” TO KEEP 
oh HE SAME FUNCTION, PUT SW 3 DOWN. SEE 


SW< 02> / 


ee A ET 


BL NUMBER OF BROS) 
OWABLE E 


THe De THe MAX MUM ALL 

COUNT ore E Re teRe & FRRORS HAVE SeeURED THE DRIVE IS 
DROPPED and “A ME ( DRIVE # XXXXX DROPPED) 15 
PRINTED. 

SW<O0> 

THIS | alTOH Bom tc Z WITH THE FUNC 


% = erie Is ri ae “a 
en M chiLt BS Bok A Ep aTTERN Te T uESTtEN 
WocTeLS PATTERN is PATTERN’ uit eB br IRI TTEN (On 
WRITE CHECKED) ot THE DISK. FCR FURTHER INFORMATION 
REFER TO SEC. 

PROGRAM DESCRIPTION 

THE FIRST TEST iS Al AT DETECTING IMPEPENDING 

FLECTRG= MECHAN cA ee rf URES IN THE DRIVE AND 
LIMIT a ircHes- 


TWO TESTS, THE DISK IS FORMATTED AND 
CORRECT FORMATTING. IF THE DISK IS 
1S FORMA c 


THE ENTIRE DISK TTED H TIME 

IVE IS TESTED. NO FORMATTING IS DONE WHEN 
VE _ IS TESTE THE a SK IS CHEC EACH 
OPER FORMAT, HOWEVE 


se + ee EF 
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fan NEXT TWO TESTS THE SEEK LOGIC, POSITIONER 


/ Sitreseny skola ef BY pe ie Po SEEK, ae ic 


TC 


Bal ceuitelie THe “econo ONE Paty eR 


hm i “pu ete re on. 
Pari Aes ee gt ORE: 


IS GIVEN ee re Cheon 
DONE WHENE 


IN THE S srs IVE a TING JIS 
Ge, POPE eT 25 BE Ate patTEetG, [ee Dare 


EVERYTIME AN ERROR OCCURS RETRIES ARE DONE, TO CHECK . 
RROR HE’ 


BUFFER ATED BY THE USER 
10 DIFFERENT PARTS OF MEMORY. REFER TO LOCATIONS 
“PELL Pari’ "BTRNGL* IN THE LISTINGS 
FOR a DETAILS: SEE SEC 7 


THE SHUNT CURRENT CHANGE TEST WRITES, READS AND 
CHECKS FOR ERRORS ON CYLINDERS 127 AND les. THIS 
REGION HAS CRITICAL “PACKING DENSITY” TO “WRITE 
CURRENT" RATIOS. 


BS iep trees ee TIMES AND GRAPHS AS 
EXPLAINED IN SEC 8 


A FUNCTION SELECTION SUB-PROGRAM IS PROVIDED FOR 
USER SELECTION OF FUNCTIONS. SEE SEC 9.0 


EVERY TEST IN THE PROGRAM IS PRECEEDED BY 
EXPLANATION OF THAT TEST, THE USER IS ADVISED 7 
REFER TO THAT, IF MORE INFORMATION IS NEEDED. 


PERMISSIBLE USER PROGRAM MODIFICATIONS 


THE USER CAN MAKE MINOR CHANGES IN POINTERS, TABLES 
ETC. TO TAKE CARE OF HIS SPECIAL NEEDS. IT IS 
ecvisaet TO MAKE CHANGES IF ANY, RIGHT AT THE 


SEEK TIMING CAN BE DONE BETWEEN ANY TWO CYLINDERS 
HEIN IN THE SYLINOER ADDRESS 


LISTINGS. 


IN CASE YOU HAVE @ LINE PRINTER AND WANT YOUR OUTPUT 
THE LINE PRINTER. CHANGE LOCATION 'STPS’ TO 
177514 aN LOCATION "S$tpB’ To 17751— (LINE PRINTER 


INPUT/OUTPUT pom BUFFERS (FROM WHERE DATA TRANSFERS 
WILL BE DONE TO AND FROM THE DISK) CAN BE a hl? 
TO ANYWHERE IN THE 28K OF MEMORY (DO NOT OVERLAY THE 

PROGRAM) . THIS CAN BE DONE BY CHANGING THE CONTENTS 


JOl 


SES 0009 





EEE 


7.1.6 


8.0 


4 diets ee he AND ‘°PBUFI’ TO THE STARTING 
TWO USER SELECTED BUFFERS. IT 
ohh SE oreo Tray, THAT wn ad THE TWO BUFFERS SHOULD 


FOUR Oy rERENT PATTERN ay Ya ROUTINES wi: BEEN 
IN THIS OGRAM: PTGENO PTGEN] 


TGENe D. "}t T “nave BEEN DESCRI 
DETRIL AT CORRESPONDING LOCATIONS IN THE LISTING. 


Rees islet b 
POINTERS BNTAIN. te spate, D. RODRESS “OF TERE CH 


Oe Paice fat oe THE ABOVE, YOU CAN WRITE THE 
SAME TWO (OR ONE) go te ON THE ENTIRE entre USING 
*PTGENO’ ROUTINE. TO WRITE THE SAME ONE PATTERN: 

SOE LOCATION PATI’ TO "PTGENO’ STARTING ADORESS 
Sg Se LOCATION *PATe’ TO "PTGENO’ (STARTING ADDRESS 


P ) 
pg LATION *PAT3’ TO *PTGENO’ (STARTING ADDRESS 
FI AT *PT . . * WITH T 
at Locations | PTRNO1’ AND *PTRNO2 I HE 
Oe ITE 2 DIFFERENT PATTERNS (IN ALTERNATING 


CHANGE "PATI", "PATE" AND "PATS’ AS DESCRIBED ABOVE. 
a ee eel AND ’PATRNO2’ WITH THE TWO PATTERNS 


rN TEST. 10, IF YOU WANT TO WRITE ano ute CK CYLINDERS 
Dyke WITH PATTERNS OTHER T HE le USE 

ae OF LL OF 2 POINTERS HAN pT HRO ee 

*SP12° i CONTAIN Pa TTERNE YOU 


SEEK TIMER & GRAPHS 


THE LAST TEST IN THIS PROGRAM IS THE SEEK TIMER. IN 
ORDER TO TIME THE SEEKS, THE SECTOR CO COUN ae HAS a 33. 
USED AS A TIME BASE. THUS THE ACCURAC S 
REC IS AS GOOD AS THE ACCURACY oF THE seer OR 
SOUNTER (UiICH IN TURN DEPENDS ON THE ROTATION SPEED 


IN THE FIRST PART OF THIS TIMER, SOME CRITICAL SEEKS 
HAVE BEEN TIMED (CYLI O-1' 179-181, 0-3, O-1 

0-32, 0-202, 0100) EACH SEEK ‘ts "100 ‘TI! 

TIMES oftt THEN THE TIMES BRE SORTED i 


AND A 4 te Te Gt $t YEN SHOW SHOUT Ne HOW MANY Mf Pat 
PARTIC K TIME WAS OBTAINED. EXAMPLE: SEEK 
ve een O AND ro aes ee WAS DONE 100 TIMES. 99 
Ne 106 1s geek te GIVES THE USER AN IDER OF HOW 
CONSISTENT ARE THE SEEK TIMES. 


IF YOU WANT TO TIME SEEK BETWEEN ANY OTHER SET OF 








“THE GRAPH SHOWN ON 3 
THAT DIFF 


CYLINDERS, YOU CAN DO BY FOLLOWING THE INSTR “TIONS 
AT LOCATION °SORO’ IN LISTINGS. SEE SEC 


IN THE SECOND PART, A GRAPH OF THE "CYLINDER SEEKED 
FROM O° IS D orres AGAINST "SEEK TIME’. TWO 
AVAIL: THE Saget GRAPH IS pet fi 


. HE THE aaa U 
SL ecten YLINDERS ‘ABOUT rs COVERING 
FR CYLINDER 0 10 e0e. IT gives THE USER = LICR 
SEEK CHARACTERISTICS OF A DRIVE. 
THE OPTIONAL a+ Sea | GRAPH (SW 4) GIVES A GRAPH 
SIMILAR TO THE ABOVE NE. BUT PLOTS ALL THE 
CYLINDERS (203). 


ate OUTPUT. IT 


SA 
SPUD BE REAL I2EO Tony CuErERENT DnIvES Ray HIVE A 


FUNCTION SELECTION PROGRAM 


THIS PROGRAM GIVES THE USER A CAPABILITY TQ SELECT A 
FUNCTION AND EXECUTE IT, FROM THE CONSOLE TELETYPE. 


STARTING ADDRESS=210 


ON STARTING THE PROGRAM AT 210, THE FOLLOWING 
QUESTION APPEARS: 


FUNCTION? 


THE REPLY SHOULD BE: WR FOR WRITE 
We FOR WRITE CHECK 
RD FOR READ 
RC FOR READ CHECK 
CR FOR CONTROL RESET 
DR FOR DRIVE RESET 
SK SEEK OR 
ALL COMMANDS SHOULD BE TERMINATED BY A CARRIAGE 
WHICH FUNCTION IS GIVEN THE 


RETURN. DEPENDING ON 


FOLLOWING GUESTIONS APPEAR: 


RKBA? TYPE IN THE BUS ADDRESS ‘OCTAL) 
FOLLOWED BY A C.R. 


RKDA? TYPE IN THE OISK ADDRES (OCTAL) 
FOLLOWED BY C.R. 


if A NON-EXISTENT CYLINDER OR SECTOR IS SELECTED, 
HE QUESTION IS REPEATED AGAIN. 


SWORDS? TYPE IN THE NUMBER OF WORDS YOU WANT 
TQ TRANSFER. JT SHOULD BE IN OCTAL. THUS IF vu 
WANT TO READ A SECTOR TYPE IN 400 FOLLOWED BY C.R 

ANY NUMBER OF WORDS CAN BE TRANSFERRED DEPENDING ON 
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THE BUFFER SIZE AVAILABLE. 


FOR A write FUNCT SWO IS SET T mL PROGRAM 
WILL ASK g tre aa a Parvenn To 


BE Ww 
HE USER SHOULE Hee N THE DAT 
PATTERN COCTAL) TO = TE ot ve ee BY <CR>. THE 
PATTERN WILL BE WRITTEN ON THE DISK. NOTE THE NUMBER 
of ns ine WRITTEN AND THE OISK ADDRESS SHOULD 


FOR A WRITE CHECY FUNCTION: IF SW O IS SET 
USER IS ASKED FOR THE PATTERN 70 BE WRITE crecttp, 
PATRN? THE USER SHOULD TYPE IN THE (OCTAL) PATTERN. 


FOR A SEEK FUNCTION: CYL1? CYL2? IN REPLY TO 
TYPE IN THE Cee NER NUMBERS (OCTAL) BET WEEN ee ie 
THE SEEK IS DONE. IF @ NON EXIS oN 

IS TYPED IN THE QUESTION IS REPEATED BoRIN 


THE FUNCTION IS EXECUTED AGAIN AND AGAIN. 70 GET 
OUT OF THIS LOOP SW 3 SHOULD BE SET, AT THIS POINT 
THE QUESTION (FUNCTION? ) 1S ASKED AGAIN. 


IF UPON EXECUTION OF A FUNCTION AN ERROR OCCURS IT 
IS REPORTED. ALL SWITCH OPTIONS WHICH APPLY TO ANY 
OTHER ERROF, ALSO APPLY TO THIS ERROR. 


IF ON INPUTTING A NUMBER OR COMM 
MADE, THE INPUT STRING CAN BE 
"RUBOUT’ KEY, THE NEW STRING CAN BE T 


AND A MISTAKE IS 
DELETED BY HITTING 
YPED IN AGAIN. 


ERROR INFORMATION 

WHENEVER AN ERROR MESSAGE IS PRINTIO ALL 
REGISTERS AND OTHER pate PERTAININNG TO The ERROR 
ARE ALS N. RKDS, ‘ RKER...RKBA INDICATE THE 
CONTENTS OF THE CORRESPONDING REGISTERS AT THE TIME 


ery ERROR MESSAGE CONTAINS A a te THIS 


AN NGFUL. . - 
N THE PROGRAM LISTING HE i FIND. MO 
The ona Zon ABOUT ie ERrbR. oft eee is re 
AULT WILL GIVE RISE 
PORT. LITTLE DEL BERAT! Tone TON 
EXAMINATION OF mt BATA 78 GIVEN WILK BE CERTA “ay v vERY 
HELP ru. A Fer ON UF WHAT BE 
CHEC IN THE T SI IS GIVEN AT THE BEGINNING 
ALL THE NUMBERS GIVEN WITH ERROR 
MESSAGES ARE IN or TAL 
iat WHEN AN ERROR OCCURS BESIDES THE ERROR 
Fath 


MORE PRINTOUTS OCCUR. THEY ARE GIVEN TO 
HE USER UNDERSTAND THE PROBLEM. - 


MOL 


SEG O0i2 


- 
eo. 
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tf 
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e- 
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UNEXPECTED TIMEOUTS AND RKi1 INTERRUPTS SEG 00i3 


WHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT WHICH 
TIME OUT OCCURRED IS TYPED OUT AND THE PROGRAM 
HALTS. IF IT IS INTACT, IT CAN BE RESTARTED BY 
PRESSING CONTINUE. 


f eS wouT He Pc oes eS CRME PEN AND AND 


YPES OUT 
his, HALTS. PRE Rett tim WOULD RESTART ThE 
PROGRAM FROM BEGINN 


COMMONLY USE) SUBROUTINES 


@ BRIEF EXPLAINATION OF EVERY SUBROUTINE IS GIVEN IN 
THE LISTINGS (JUST BEFORE THE CODE FOR THAT 
See Aiea "A SUR ou UTINES ARE LISTED IN. THE THE 
LISTINGS. SER T TWO WAYS IN WHI Tew ROUTINES eRe afte 
CALLED, 1. .JSR PC,ROUTINE 2. T 

RAP TRSTRUCTION. THE LOWER BY aa 

INSTRUCTION IS USED TO INDEX THROUGH THE teop THe E 
(STREAD) FOR THE STARTING ADDRESS OF THE DESIRED 


SAMPLE GRAPH AND SEEK TIMER OUTPUTS 


ULAR _ 
RDED FOR 
YLINDERS. 


*s OF SEEKS’ INDICATES THE NUMBER OF TIMES A 
"SEEK TIME’ WAS OBTAINED. NOTE THAT TIMES ARE 
BOTH FORWARD AND REVERSE SEEKS, BETWEEN A SET OF 


SEEK TIME SCALE FACTOR=0.01 MILI SECS 


s OF SEEK # OF SEEK 
SEEKS TIME SEEKS TIME 


ma 
Oo 
oon 
i) 


CYLS: 0-202 
FRWRD REVRSE 
ioo $075 100 9075 
CYLS:0-1 
FRWRD REYVRSE 
100 B25 100 1155 
CYLS: 179-181 
FRURD REVRSE 
100 1155 100 1155 
«CYLS:0-3 : 
FRWRD REVRSE 


100 1485 100 14e5 
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WRIT 
SEEK 
SS 
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HANDLER 
HANDLER ROi 
a 
I 
Si 
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sf 
REST 
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- SOTTL OPERATIONAL SWITCH SETTINGS 


i. SWITC USE 

:# is HaLT oN ERROR 

i 13 rhe era 

:# i3 Girae ERROR TYPEOUTS 

Le l2 CYCLE ON ERROR TO PREVIOUS ‘SCOPE’ 

:* 10 N Fe R 

:# § 

r F SELECT TE T arEe OT BY PET } 

+ 

t* 2 BYECUTE THE S 6-9 ut ese [Test T 11) 
:# 4 TYPE THE COMP SEEK TIMES) 
+" NOTE OF ESTE Fog ra SAE 

:# 3 TERMINATE FUNCTION SELECTED By ere 

;# TION cT =210) 
a 2 He -OBIVE AFTER MAXIMUM ALL BuABLE 
+ : NOE OF ERRORS OBE URITTEN COR. WR 
+ 

:# CHECKED) IN FuNe ION SELEC Tet ON Bane 
:# ll 1 REGISTERS ON ON EOS 
;# YOU ARE ADVI THE DOCUMENT FOR THIS PROGRAM. 
:# FUNCTION pF ON BRGoRAN Ba ARTS AT 210 
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BASIC DEFINITIONS 


~SETTL BASIC DEFINITIONS 


SEG 00:8 


pe _—— OF THE STACK POINTER ### 1100 ### 
EQUIV ett ERROR ;;BASIC DEFINITION OF ERROR CALL 


-EQUIV I0T, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
> eee | eames weeeciares 


ut= CODE FOR HORIZONTAL T 
= i fe i ae RETURN 
CRLF= 2050 TURN-LINE FEED 
PS 177776 EO OEESSOR STATUS Woke 
Equiv PS, PSW 
STKLMT= 172774 : STACK LInzT RE REGISTER 
RO= 1 | ;PROGRAN I QUEST REGISTER 
DSwR= 1eesk : HARDWARE oy TCH REGISTER 
DDISP= 177570 :tHARDWARE DISPLAY REGISTER 
;#GENERAL PURPOSE REGISTER DEFINITIONS 
Ro= %0 : 3 GENERAL REGISTER 
% 3 
aes 3 + GENERAL Reetey 5 
R % ::GENERAL REGISTER 
R4= yan) ;;GENERAL REGISTER 
= “5 ::GENERAL REGISTER 
Rb= “& :GENERAL REGISTER 
R?= “7 : GENERAL REGISTER 
SF= “5 ;;STACK POINTER 
Pcs “? ::PROGRAM COUNTER 
-#PRIORITY LEVEL DEFINITIONS 
Peo= : PRIORITY LEVEL 0 
PR1= 40 ;;PRIORITY LEVEL 1 
pass 140 + OR RY LEVEL § 
Pe4= B00 ERT er Ty tEVEL 4 
PRS= 240 ::PRIORITY LEVEL § 
PRE= 300 ;;PRIORITY LEVEL & 
PR7= 0-340 ::PRIORITY LEVEL 7 
#"SWITCH REGISTER” SWITCH DEFINITIONS 
Gwis= 10000 
Swi4= 40000 
SWiz= 20000 
SWle= #5900 
EWil= ‘4000 
Swid= 2000 
SwOo9= 1000 
Swos= 400 
7: 200 
t= i0 
SwoS= 40 
Swo4= 20 
SwO2= 10 


———- = ee ee 


ee er OO OO ee SS eee eee eee eee ee 


GOe 












MAINDEC-11-D2RKL-D mACY11 27( 1006) nth -? PAGE 3 
| OZRKLO.P11 = 31-AUG-76 15:36 pasi¢ hernr? tone SEG 001 
| 300 900002 SWOl= 2 
| 101 0001 SWwOO= - 
225 By 3, SW9 
| 185 EatY Bios: ene 
i os “EQUIV SWO, SWé 
| Ea SSeS 
| 08 “EQUIV et : 
108 “EQUIV SwOe; Swe 
| 110 “EQUIV SWOl;SW1 
re “EQUIV SWOO; SwO 
sf 
| 35 -#DATA BIT DEFINITIONS (BITOO TO BITIS) 4 
iis 190000 GiT1s= | 
eg i 540000 BIT14= 40000 = 5 
fare tl 920000 BIT13= 20000 > 
11? 010000 BITle= 10000 
| jie 904000 BITl1= 4000 
| 438 952000 BIT10= 2000 
= 001900 BITO9= 1000 
ee 605400 BITOs= 400 
] B TO7= 2 
j 1 100 TO&= ] 
| 1 40 BITOS= 4 
i Yes 000020 BITO4= 20 
le 009010 BIT03= 10 
2 Be Hie 
| ] 000001 BITOO= 
ei: “Eiety 81703, 8179 
wee “EQUIV 8ITO8; BITS 
hep . “EQUIV BITO7,8IT7 
133 “EQUIV BITOG,BITS 
134 “EQUIV BITOS, BITS 
i3s “EQUIV BITO4,B8IT4 
1x “EQUIV BITO3.8IT3 
137 “EQUIV BITO2,8ITe 
ize “EQUIV BITO1.BITI 
133 “EQUIV SITOO,BITO 
| Jul *BASIC “CPU” TRAP VECTOR SSES x 
142 00 brevec= 4 yi at AND OTHER ERRORS 
143 900010 RESVEC= 10 ::RESERVED AND ILLEGAL INSTRUCTIONS 
iss 000014 Tei rvec=4 :3°T" BIT 
14s 000014 RTVEC= 14 ip TRAP : 
14e 000014 EPTVECs 14 :BREAKPOINT TRAP (BPT) 
13? 90020 loTvec= au $3 $i INPUT /QUTPUT TRAP (IOT) *#SCOPEss 
i458 sana EMTVE = {EMULATOR RAP (EMT) ##ERRORS# 
iso 000034 TRAPVEC=34 is TRAPE T RAP 
151 000060 TKVEC= 60 TTY KEYBOARD VECTOR 
iSz 000064 TPVEC=s 64 iiny PRINTER VECTOR 
52 000240 PIROVEC=240 !PROGRAM INTERRUPT REQUEST VECTOR 
c 


n 


-SBTTL TRAP CATCHER 


. 
t 
t 


-_— mm a 
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: MAINOEC=11-D2RKL -2 MACYL1 27(1006) O4-OCT-76 14:26 PAGE 4 
DZRKLO.P11 «31-Aug-76 15:35 TRAP CATCHER - s0e¢ 

if 

2 — SED LO ATIONS FROM 4 - 776 CONTE NA” *.t2, HALT” 

} i Soeb ENS NCE $0485 CATCH ILLEGAL TRAPS AND SFERRUP 

1 :ALOCATION, Q CONTAINS 0 10 CATCH CHPROPERLY YORBED VECTORS 

162 200174 ‘ OISPREG: mnie : : SOF TMARE DISPLAY REGISTER 

163 000176 000000 SWREG: _ .WORD ;;SOFTWARE SWITCH REGISTER 

164 “SBTTL sien. ORE ESS(ES) 

765 000200 000137 ocde4te2 :;JUMP TO STARTING ADDRESS OF PROGRAM 


000219 =210 
0902 10 ipeeee lelé INC Z FFUNC ;SET FLAG INDICATING SELECTION OF 
0002 14 1 462 MP asSTART FUNCTION PROGRAM. 


J 
-SBTTL ACT11 HOOKS 


= SESPLESSSSSSESRESSSESSLSSSSSESLSFSSESSSLARELEFSSSLASFLSLLASESFLESSSAES 
: HOOKS REQUIRED BY ACTI1 
po0220 $svP ;SAVE PC 


po0046 015254 rc. ;L)SET LOC.46 TO ADDRESS OF SENOAD IN .SEOP 
-s2)SET LOC.S2 TO ZERO 
tt RESTORE Po 


CLT 
“3 


a TT 


10e 


| MAINDEC-11-DZRKL-D MACYLL 27(1006) O4-OCT-76 14:26 PAGE S 
| DZRKLD.P1L = 31-AuG-76 15:25 COMMON TAGS SE6 002: 
181 “SBTTL COMMON TAGS 
1 fy ERASRELLELEL FLA SLELELELE SELLA SFLEFERELELFLELERERAAELELFFSES FSS 
l :#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
| 18s ?#USED IN THE PROGRAM. 
187 001100 .=1100 ; 
188 991196 SCMTAG: ;;START OF COMMON TAGS 
185 901106 oo0000 $Pass: .WORD 0 :: CONTAINS PASS COUNT 
190 051108 ee TSTNM: -BYT : : CONTR NS T TEST NUMBER 
191 0013 LG: .BYT ::CONTAINS E LAG 
| 383 901104 990000 SICNT: .WORD 0 ::CONTAINS SUBTEST ITERATION COUNT 
| 293 001106 395005 PADR: :WORD 0 ::CONTAINS SCO L0 ADDRESS 
| 394 901110 SLPERR: :WORD 0 ::CONTAINS SC TURN FOR ERRORS 
| 385 O01112 900000 SERTTL: .WORD 0 is CONTAINS TOTAL ERRORS DETECTED 
136 001114 000 SITEME: .BYTE 0 ::CONTAINS ITEM CONTROL 8 
197 OO111s 001 SERMAX: .BYTE 1 ::CONTAINS MAX. ERRORS PER TEST 
13 OO1l1E g9005¢ SERRPC: .WORD 0 ::CONTAINS PC OF LAST ERROR INSTRUCTION 
i988 001120 SGDADR: :WORD 0 ::CONTAINS ADDRESS OF GOOD’ DATA 
| 200 Ooi ige 000099 SEDADR: “WORD 0 : CONTAINS ADDRESS F BRO" DATA 
1 et © . 
«BBR BRITE? BppRRS ga5ReTi ctiged 6 ST EONTRING *BAO* DATA 
' 03 001130 900000 “WORD «OO ::RESERVED--NOT TO 
«Fe Botts ots SAUTOB aie AUTOMATIC INDICATOR 
Be Size 5S SINTAG: .BYT ; :; INTERRUPT MODE INDICATOR 
se asta Seer : Sour SS OF SWITCH REGISTER 
| p09 tbe 1orEse DISPLAY: .WORD BB TEP i BpOREee OF Btepray EG ote 
| p10 OO1144 177560 $TKS: 177560 3 TTY KBD STaT 
ei 09114 177562 STKB: 177562 2: TTY BUFF 
«BS Seiies i}}eee Sipe; «Lppeee titty PRINTER BUFFER REG: ADDRESS 
eo s se s 
Bla Bette 77358 te aye 0 ::CONTAINS NULL CheRae ee PoRRE 
21S OO1155 O02 SFILLS: .BYTE 2 ::CONTAINS # OF CHARACTERS REQUIRED 
ei6 9011 Ole SFILLC: .BYTE ke :: INSERT FILL CHARS. AFTER A “LINE FEED 
| 1 115 STPFLG: {BYTE *:"TERMINAL AVAILABLE” FLAG (BIT<O7>=0=YES) 
| 1s 001160 900000 SREGAD: .WORD 0 TiCONTAINS THE ADDRESS FROM 
ig !:WHICH ($REGO) WAS OBTAINED 
£20 «001162 00000 SREGO: .WORD 0 ::CONTAINS (($REGAD) +0) 
| Bel OO11E4 000 SREG1: .WORD 0 ss CONTAINS (($REGAD) +2) 
eee 001166 saad SREGe: .WORD 0 !:CONTAINS (($REGAD) +4) 
001170 990000 SREG3: .WORD O !:CONTAINS (($REGAD) +6) 
«BBS )§=6901172 900000 SREGY: .WORD O CONTAINS (($REGAD) +10) 
225 001174 900000 SREGS: .WORD 0 !:CONTAINS (($REGAD) +12) 
226 001176 o00000 SREGE: .WORD 0 ::CONTAINS (($REGAD) +14) 
227 001200 900000 $REG7: .WORD 0 ::CONTAINS ((SREGAD) +16) 
228 991202 000090 $REGIO: .WORD 9 :: CONTAINS ((SREGAD) +20) 
223 001204 900000 SESCAPE: 0 t:ESCAPE ON ERRO RESS 
220 001206 177607 000277 $BELL: .ASCIZ <207><377><377> ::CODE FOR BELL 
sah O0lel2 $QUES: .ASCII /?/ ;; QUESTION MARK 
001213 15 SCRLF: .ASCII «15> :: CARRIAGE RETURN 
OC1214 00012 SLF: y 4 INE FEED 


1 
ay 


; -ASCI le> + 
yj EEERRESERSERERESERERE RAP ERERAERASERER AEE EEREREREERRERER SEED EEE 


ror 
RA 





£3 


BS 6 


roru 


SS 


SOONER SAR eee 


ps 


BERRPRe wa Vow sons 


tf 
nee 


11-DZRKL-0 
Ml 


001216 
001220 


O0iz22 


00123 
O0iz24 


001226 


8 
tw 
8 


B88 
Ras: 


000000 
000000 


001226 
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COMMON TAGS 

;IN CASE YOU_WANT THE OUTPUT TO COME OUT ON LINE PRINTER, (IF YOU HAVE 
ONE), MAKE THE FOLLOWING CHANGES ABOVE: 


;CHANGE CONTENTS OF ‘STPS’ TO 177514 (LPT VECTOR) 
;CHANGE CONTENTS OF °STPS* TO 177516 Ste 


;TAGS AND GENERAL DATA AREA 


FFUNC: .WORD 0 ;FLAG ane T0 porcere aor INTO FUNCTION PROGRAM 
XXDPMD: .WORD 0 iT cues Be LQaobp er 

3 HE UPPER BYTE CONTAINS FE RKOS *XXDP’ COD 
LUPSW: .BYTE 0 we = 


TO INDICATE THAT A 
Ea SET TEST WAS LECTED BY USER (SW 8) 


DRVDON: .BYTE 0 ;CONTAINS NUMBER OF DRIVES THAT HAVE 
*BEEN ALREADY CHECKED 

DRIVS: .BYTE 0 :CONTAINS TOTAL # OF DRIVES PRESENT 

EVEN 

DRVPTR: 0 s CONTAINS POINTER TO NQICATOR START 
s WHICH CHE EkiNG oe uouLe Be nee 

DRIVAD: 0 : CON ie nS. THe THE NBORESS OF THE DRIVE 
:BEING TESTED 

AGS TO INDICATE 

BR V1: iad iTeet 6 Pe Pat cuca DRIVE I 

DRIVe: o40000 : PRESENT 1S SET T0 

ORIV3: 060000 : INDICATE THAT. BITS 13, 14, 15 

DRIV4: 100000 :CONTAIN THE LOGICAL DRIVE 

DRIVS: 120000 : ADDRESS 

DeIve: 140000 

DRIV7: 160000 

RETRY1: O ;GENERAL REGISTERS 

RETRYe: 0 

RETRY3: O 

NADR: Q :CONTAINS INNER ADDRESS 

OUTADR: :CONTAINS OUTER ADDRESS 

TIMER: QO 

BUFR: BLKW 13. ;GENERAL BUFFERS 

: ee 1 
BUF RS; “BLKW 13. 


—— a ee 








t 


yr 
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eereareennmeee an f 
3 


Caer oes ed Sed ee ee 
wD Oru & lo 


Cada rated 


Sy 


ee 


SENSOR 


Ww 
8 


GPE 


LUCUC0Gd 
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YOU WANT TO USE BUFFERS STARTING AT SOME OTHER MEMORY 


SORES SPELL EB SUE ested MORE eRe 


026362 PBUFO: IOBUFO sPOINTER 10. TO THE 5 fees Into" ADDRESS OF THE 
NTO EROM DIEK 
031362 PBUFL: OBUFL aac TO Lae BUFFER 
iB ie WH 5 Gene (WRITING 
; F 
900000 BUFLGO: .WORD :F 
000000 BUFLGi: .WORD 0 irtae FOR 4 aa , 
010032 PATO:  PTGENO :RORES OF *PATRN GENERATOR 0° 
010114 PAT1:  PTGENI SAORES OF "PATRN GENERATOR 1° 
010216 PAT2:  PTGENe :ADRES OF "FATRN GENRATOR 2° 
010260 PAT2:  PTGEN2 ;AORES OF *PATRN GENRATOR 3° 
900009 PRSPAT: .WORD 0 if Sey ee 19 Th THE 
7OR” ROU TINES 
o00900 NXTPAT: .WORD 0 35 
ococca GSUBR: .WORD 0 
po0000 DSKADR: .WORD 0 ;CONTAINS DISK ADRES (DA) 
o00000 BUSADR: .WORD 0 ;CONTAINS BUS AORES (BA) 
cococo WROCNT: .WORD sCONTAINS WORD COUNT 
oo0000 WOSKAD: .WORD O ;CONTAINS DISK ADRES 
900000 WBUSAD: .WORD OO sCONTAINS BUS ADRES 
po0000 WHROCN: .WORD :CONTAINS WORD COUNT 
ooco0c BUFNO: .WORD O sCONTAINS STARTING ADRES 
oo0000 ADRES: .WORD 0 ;O0F A BUFFER 
;RK11 REGISTERS 
[IF FOR ANY REASON THE REGISTER @ RODRESSES ARE DIFFERENT FROM 
s THESE. (BELOW) THE CON THE APPROPRIATE POINTERS SHOULD 
:BE MODIFIED SO THAT THE CORRECT REGISTER ADDRESS IS USED. 





1 eae} 1774 
1774 RKE 1 

1 RKCS 177404 
1774 RKWC 177406 
177410 RK 177410 


MAINOEC-11-DZRKL-D MACY11 27(1006) 
DZRKLD. C 


348 


Si 
SS8888888 BE88 
RB choee Wooly 


t 


BURRESS IS 


Fs 


888888 8888888 


SERPS 


Pll 31-AUG-76 15:35 
OOi464 177412 
OOl46E 177416 


001470 000200 


001472 000220 





SRORRRE 
8 on 
: 


001000 
$54 002000 


| 
| 
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SES U0E4 


RKDA: 177412 
RKDE: 177416 
pert: 200 SEEM hehe” Ho i 


; SHO CHANGED I S re 


ib ORITY BITS IN PSW 
a Cece: ie RK LL Ha ON 


EEN CHANGED, MeEE FY 
‘TA isu ofioRBS 


;GENERAL INDEX REGISTERS 


; GEN RAL REGISTERS 
RAL REGISTERS 
: GENERAL REGISTERS 


mm 

Sa 

So 

4 
Oooo0000 2000 


ERCNTE: 


j #THE POLL CAING TABLE CONTAINS THE CYLINDERS BETWEEN WHICH THE SEEKS WILL SE 
;#TIMED. THEY HAVE BEEN SELECTED TO GIVE SOME {yr ie SEEKS TIMES a3 Lis 
:#3 SEEK SPEEDS. IF FOR ANY REASON YOU WANT TO TIME SEEKS BETWEEN AN 
es ag OF CYLINDERS, MAKE CHANGES IN THE CORRESPONDING SEEK EYLINOER 


-#QUTER CYLINDER ADDRESS, FROM WHERE SEEK WILL BE DONE 
Sond: 0 CYLINDER O 


0 

aes 3 
| : 
0 ; 
0 ; 
: INNER ry om TO WHICH 


ILL BE DONE 


STAD: ER 202, LAST 





te eS hs 
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oscc40 


047103 


000116 
000105 
0S2e123 
04 


MOe 
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COMMON TAGS SEQ Coes 
6200 ; ” 100 
OW NTERS SED TO TRANSFER CONR 9. HE 
iit SeectES BY asthe sy a IF ANY FR pet Eets 6 
“tt Is PROGRAM ADDITIONAL POINTERS SOUED "OE INSERTED. 

ait terae8 
PT3: TST3+2 
PT4: TST4+42 
PTS:  TSTS+e 
PTE: TSTb+e 
PT7:  TST7+e2 
PT10:  TST10+2 
PTll:  TSTli+¢e2 

-MESSAGES & ASCII STRINGS 
MSGi: .ASCIZ <15><12>/SINV 
MSG2:  .ASCIZ <15><12>/SKE/ 
MSG3:  .ASCIZ (15><12)>/TEST # ABORTED: / 
MSGH:  .ASCIZ <15><12>/PROG ABORTED 
MSGS: .ASCIZ <15><12>/READ HDRS OK FROM CYLB ABOVE/ 
MSG:  .ASCIZ V/EXPCTD HDR= / 
MSG7: .ASCIZ / PC=/ 
MSG10: .ASCIZ <15><12>/CNTRL ROY DIDN'T SET/ 
MSG11: .ASCIZ /SECTR EXPC P-HDR RECV P-HDR/ 


mm eae eS ee 
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3 002027 ps1 369 F105 eae! MSGl2: .ASCIZ <15><le>"R/W/S ROY NOT SET” 
Ses Be Oy a 
040 


O40 O0Se2 OS4S22 MSG13: .ASCIZ / TRY &:/ 
021440 00007e 





4 
47 4 905015 051104 OS3111 MSG14: .ASCIZ <1S><12>/DRIVE / 
a7 2 620105 

| 474° 902075 040 O20040 BLNKI3: .ASCII * / 
475 0021 BLNK1O: .ASCII 7 / 
47 1 NKSS: Bak ‘= 

, 4 1 4 NKSS: . 47 

| 7 1 4 BLUNKS7: .ASCII 7 / 

| 478 902104 040 BLNKSE: .ASCII 7 / 

| 2 Be ee cael 7 

rn 158 Bua BLNKS? arti 4 / 
483 002110 040 BLNKS2: .ASCII 7 / 

| = 002111 040 000 BLNKS1: .ASCIZ / / 

| 486 002114 EVEN 
487 002114 000000 FDRIVE 
468 002116 000000 FORVEL: Q 
489 002120 000000 DRHOLD: 0 


- 


tet Wein LS 


COVEPTETVUFDCOREHTCIVEFTrVENT 
0 20 +0 +0 0-20--6 +0 +p 8 + 


OD “IOPUN.£ Gate) 


" 
ad 


- 


senna 


yy ay a Spe pe Y tt 
RB arctoete test! 


porssi *s ] “DIBRL-D 


ee 


O02le2 


ie 


o-0 +e ry 


his 
Swe 


iS 
Sere es 


a ba 


Si-sUG-7S 1S: 


gc=78 14:2 


} - 04-007 
eheoe’ POINTER 
“SOTTL ERROR POINTER TABLE 


BO3 


PAGE 11 
E 


FOLLOWS $ 


ATHIS TAGLE CONTRIN® THE ZNFORMATION FOR EACH ERROR THAT Cty occur. 
ered INFORMATION I$ OBTAINED BY USING THE INDEX NUMBER FOUND 7 33 
+ LOCATION SITENG. THIS NUMBER INCICATES WHiCH ITEM IN THE Te 2 1S PERTINENT. 
SRSTEL. Te SITeme 1 b THE ONLY PERTINENT DATA 18. ($e 
: #NOTES: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS | 
; é ssPOINTS 10 T 
} ae ri BeiNte 8 tie pete HeneeR 
4 OY s;;POINTS TO THE DR 
1+ oF SIPOINTS 70 THE BATE FORMAT 
SERATB 
sERROR ITEMS TABLE 
s ITEM i 
EM) :CNTRL ROY DIDN'T SET AFTER, SEEK 
| RKCS RKDS _RKDA 
Pi PSERRPC SREGO SAEs G2 §REG3 
:ITEM 62 
EMe gin ON SEEK = P 
RKCS RK RKDS -RKDA 
Sti isEmmec SREGO SREG1 © SREGe © SREGS 
sITEM 3 
M3 ;DRE ON S 
DHL sPC RKD RKDA 
ig  SERRPC BSS, Sere: gabie | gar a3 
:ITEM 4 
EM s"ERR’ ON SEEK 
OHI :PC—SORKCS~=—sC#RKERR «= RKDS_- «= RKDA 
oT ISERRPC SREGO SREG1 SREcc SREG3 
sITEM 6S 
EME :2DRU' ON SEEK; PUT DRIVE ON "LORD® BACK TO "RUN" 
ath spe ucS_ KER RKDS 
a tCERRPC SREEO RELL «SRC «| SRESD 





oe 


68 
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bio ae 
hth 


ot end 3 


i 


atta 2 


if 
o} 


rare 
OW 


a eS iat 


4 
~ 
- 


BERT total dcled 


uw 


mom 


to 


SESE 


tat aTt arta taltal tal ial ial ial 


o 
a 


Penrice 






















ERROR EgINTEs TABLE 


SEG 0028 


;ITEM 66 
EME 4 /W/S ROY NCT ser AFTER SEEK 
] RKCS RKER RKOS FKDR 
‘ee SERRE SREGO SREG1 SREG2 SREG3 
-ITEM 67? 
EMT 3318 ON wire mT 
pe Kes RKER RKDS RKDA CYLINDER 
OT? i SERREC Sarac SREG] S$REG2 $REGS S$REGS 
- 
sIYEM 10 
EM10 ;"ERR’ ON DOING WRITE FMT 
4 RKDS RKDS NOER 


:PC RKCS pas CYL I! 
1? : SERRPC SAE 0 SREG] SREG2 SREG3 SREG4 


ITEM ll 

EM11 :SIN ON READ FMT 

DH11 ;PC RKCS oF RKDS RKDA: 

;ORV8 YL SEC 

OTi1 ;SERRPC S$REGO $REG] SRE GE 

5 sSREGS $REGS 
:ITEM 12 

M2 i2ERR’ ON mee ’ 

; Re Ree RKDS RKDR CYLINDER 

. tSERRPC REGe SREGS S$REG4 
sITEM 13 

pia ;WRONG HEADERS FROM *SEC 8 

} SECTOR 2 HEADER Fecve 

ESR13 ° ;USE THIS SUBROUTINE FOR TYPING OUT ERROR DATS 
sITEM 8614 


M14 3 ERROR ON hen a 7, CYLA_TO CYLB 
14 cYLA RKE ae TRY 
i ;SERRPC $REGO sn I See ce SRE G4 


sITEM 15 


ike 


tye a CYLE ABOV 





é 


ie 
seamen & 


OormMmmr mor ood: 
eT er ed et ee ed ee 
0D IOUlL£tITUe- 


f 


8 


S 


FESHAS BEAN So SOON 
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ERROR POINTER TABLE Seo 0029 
ESRIS ;G0 TO “ESRIS™ FOR TYPING OUT 
sITEM 616 . 
EM16 —-; READ WRONG, FIRST WORD FROM SECTOR 0, “CyLB" (ON IMPLIED SEEK FROM CYLA 
OH1E CYLA = CYLB)sC«#EXPCT = RECVD—SsdTRY8 
ct? :SERRPC: §RECC $REG1 $REG2 SREG3 SREGH 
oITEM 17 
MS17 =; READ FIRST WORD FROM SECTOR 1, "CYLB’ ABOVE 
OHI? ~—s «Ss PC CYLB. EXP RECVD 
ori? ?SERRPC S$REGO SRESI SREG2 
sITEM 20 
pred + RERO WRONG HEADER ON IMPLIED SEEK FROM "CYLA® TO ‘CYLE’ 
: 13 CTOR # HEADER RECVD 
ESR20 :USE THIS SUSROUTINE FOR TYPING OUT ERROR DAT 
sITEM él 
M21 ROR ON DOING Wate ON 
gl 3BROR ON ORE Bets KDA 
or : SERRPC SAEz0 Shes SREG2  $REG2 
sITEM 622 
EM22 2s; SIN ON DOING WRITE 
DH! :PC RKCS RKDS KDA 
or :$ERRPC SREGO SREG1 SREG2 SREG? 
sITEM 23 
EM22 =;HE ON DOING READ 
OH11 ;PC RKCS RKER RKDS RKDA: 
OT11 eve C SRE Sho) 6c 
: ‘Fee ca $522 REGE ge 35 
;ITEM 24 


Be TRYe RKCS EKER RKDS_ KDR 


;DRVs S SEC 
oTe4 tSERRPC $réoj0 grep $REG1 SREGe 
;$REGY $REG G6 = SREG: 


ro +t 


aa fs ah 


Oo 


2 


ER a totol aulnktct 


- 


om 
i 


SRRES 


mormon 
PRE 
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;ITEN 8625 
SE TER HERE RE: 










= ' pt 
je 
wry 
oe 
uw 


dss64 ESReS ;USE THIS ROUTINE FOR ERROR REPORTING 
;ITEM 8626 

025354 EMoE ine ON WRT CHK 

025567 DH11 iP are sf 5 ans RKDA: 

026302 OT11 i eeeeec $REGO $REG1 S$REGE2 


:SREGH SREGS SREG& $REG? 


pleloleter > 
LITEM 27 
neeare M27 «-: WRT CHK EROR 
ASeare 4 ibe ~ TRYe  RKCS KER  RKDS KDA: 
ioRve CYL. SUR SEC 
26336 Cti«‘CS preys 'SERRPC SREGIO GREGO GREG] © SREGE 
: iSRecy §REGE §REGR | §REG? 
go000¢ C 
sITEM 30 
407 M30 —sos ERROR 
Zui4 re KOS ORKER)«=—soRKDS.)~—SsRKODA 
Eo Bit SERREC SREGD SRE 22 : 
aictcatald 0 


/ ee ee 


4 


MAINOEC-11-O2RKL-D rots 27( 1006) 


ZEIGREGRERSB SRR 6 


SINNNN 
et et et 
Mulls Gotu 


NM 
6-0 


ww, 


PAT 


SS 


Sea TaeT 


S888 


FO3 


04-OCT-76 14:26 PAGE 15 
ERROR POINTER TABLE 


;THIS IS THE HANOLER FOR UNEXPECTED TIME OUT. PRESSING CONTINUE WILL 
ZRESTART THE PROGRAM 


BADTMO: Bey (as RO ;SAVE PC WHERE TIME OUT OCCURED 


CMP (SF)+, (SP)4 sRESTORE STACK POINTER 
TYPE 6S$ Type ASCIZ STRING 
ss “3 T OVER THE ASCIZ 
iig5s: SASCIZ <15><12>/TIMOUT: Bist 
MOV RO, -(SP) SET UP FOR TYPING OUT PC 
TYPOC °GO TYPE OUT OCTAL PC 
HALT 
STAR RESET ;CLEAR THE SUS 
“SBT: I fhe oe IALIZE THE COMMON TAGS 
:; CLEAR OFTON - S (SCMTAG) AREA. 
CMTAG, R6 FIRST LOCATION TO BE CLEARED” 
oe on ?:CLEAR MEMORY LOCATION 
SSWR,RE 3; ’ 
:sLOOP BACK IF NO 
#STACK, SP ::SETUP THE STACK POINTER 
s INITIALIZE A FEW VECTORS 
MOV sSSCOPE DB1OTVEC -I0T VECTOR FOR SCOPE ROUTINE 
MOV #340 aelorver s tev ? 
MOV aSERROR orent C'; NT VECTOR FOR ERROR ROUTINE 
MOV RoRtHTTE Cs ;:LEve 
MOV seTRAD #TRAPVEC -ENEE VECTOR FOR TRAP CALLS 
MOY : 0 aiTmepveces; Eve LeveL 
Mov UPON, 9APLRVEC ; SEORER, FAILURE. VECTOR 
cn s0 abe i iGE YEE THE ESCAPE tn ERROR ADDRESS 


#1, SERMAX >: ALLOW ERR 
Y p S;INET F P 
MOY BLT EEPERR $i INTIAL IZE The Oop, po — 
;:SIZE FOR A A HeRDIARE SWITCH recttTeR. IF NO FOUND OR IT IS 
::EQUAL TO A “= sheseiee FE FOR A SOFTWARE su TCH REGISTER. 

. SAVE VECTOR 


MOV 33 
MOV ies serARVEC SET ERROR VECTOR 
MOV SUR ;;SETUP FOR A SWICH REGISTER 
MOV wb1ce DISPLAY HARD ISPLAY REGISTER 
CMP #-1, OSH 3; TRY TO seas TF AG Tike HARDWARE Sw 
BNE 6 3 BRANCH TIMEOUT OCCURRED 
ze . eegi c IS NOT = -] 
64S: Roy aces, (SP) Fn RENT. 
t5$: MOV _ i iPOrNT TO SOFTWARE SWR 
MOV teycpcee D 


GS: MOV (SP)+, SRERAEE "  SRESTORE ERROR VECTOR 


ISR PC.STKINT @ =; INITIALIZE THE TTY HANDLER 
.SBTTL TYPE PROGRAM NAME 
:; TYPE THE NAME OF THE PROGRAM IF FIRST PASS 









©: 
t 
A 
ao 

‘os 


, 


a 


Buel el eh 


2 


a 


FATE 


a 
v 


soe 


.. 


ASSIRR ESA B da Vaasa 


BSSGhee BSSRESs 


“NI 
wo 
o-* 


RSE UI a 


5 
i 


Rin 
8 
25 


oo 


aap 
se 


003064 


Se 


i 


tu 


ZINSTHA HRP 


0-0-0 0+) +0 +8 + 0-* & +6) <> 8 


32 


-DZRKL-D 
31 


recyat é 


001216 
Oeste 
001220 
001232 


690008 


00ie20 


177777 
003212 


a 


rae -OCT-76 14:26 PAGE 16 
YPE PROGRAM NAME SEG 0032 
INC &-1 TOA NICH TIME? 
ef 


.SBTTL 


7$: 
S$: 


6$: 


2s: 


-:65S: 
£4: 


3s: 


E PE Pe ASCIz. gre ING 
Ger value FOR SOFTWARE litre GISTER 
TST 42 - if Run NG UNDER XXDP/ACT? 


ee ets SWREG ie su TCH REG SELECTED 
| ii ? 

Me OOS ‘BRANCH TF 

GISHR ni CET chet. SR SETTINGS 

MOVE 81, SAUTOB ;SET AUTO-MODE INDICATOR 


BR & »-GET OVER THE ASCI 
.ASCIZ OTB ey /RKLL Dynami Test eee 1S SRAINDEC#11-DZRKL-D/ «CRLF 


: STs FEUNC sFUNCTION PROGRAM SELECTED? 
CLRBOCéSF S. CLEAR THE FLAG 
IMP Jer UNBEG ie TRONTION LECTION PROGRAM’ 
MOV #XXDPMO, RO G0 fo 
CLRB 3s ( ROD) + OE DeMOT Age TERT VAD" 
CMP RO, sDRIVAD+2 
BNE 
_ MOV 8-10 
BIC 83, Con ; CLEAR IT 0° $_IN ‘DRIVE 
: INC RI :PRESENT’ FLAGS. 
BNE 6$ 
THE FOLLOWING CODE FINDS OUT THE PROGRAM CONTROL MODE: 
APER TAPE (MANUAL), ACTL1, RKDP CHAIN OR DUMP 
cnPe 12,41 D FROM AN RKOS ? 
MOY 50, XXDPMD 12 DEVICE oghOICATOR AND perv ADDRESS OF 
CMPB #10, XXDPMO ORI ADDRESS 7 OR LESS ” 
BHI 2 : :BR IF YES 
CLRB  XXDPMD DRIVE ZERO LOADED THE PROGRAM 
TST 42 : CHAIN OR ACTL1 AUTO ACCEPT ? 
AOE bss Ot PE ne bee TR 
BR 4§ GET over te Aeetz 
"ASCIZ <16><12>/NOT TESTING DRIVE / 
CLR -(SP) Fait WORD ON STACK 
MOVB x , (SP) DRIVE fio Ess 
TYPOS 
*BYT 4 Bhat eee ZEROS 
BR 6t2 DRIVES 
Ne s- Hy TIME THROUGH HERE ? 
ST T FIRS? st 
YPE &7$ TYPE ASCIZ STRING 


bag** 


OVER THE ASCIZ 


ze 
.ASCIZ 8, 12>/T0 TEST Ager 





3 


On 
af 


coco Co co oD cDCD oD COCO 


+ 0+ = be Oe ee 


UO WO NOU Luteo 


Se 


PRs ee toe 


PSPS SEP RELI 


HOS 


-11-D2RKL-D MACYL! 27(1006) 4-067 -76 14: 26 PAGE 1 - 
Pll 0 31-AuG-76 15:25 VALUE FOR SOF TWARE shite REGISTER SEQ 0022 
0032234 905046 CLR -(SP) sCLEAR WORD ON THE STACK 
ose xt 123736 001220 MOVE , (SP) :GET DRIVE ADDRESS 
42 1 TYPOS : TYPE THE ieive BODRESS 
eke BYTE 4 iS ress LEADING ZEROS 
003246 104401 003254 TYPE 69$ 3; TYPE ASCIZ STRING 
003252 000421 2 3 iG OVER THE BSC12 
mervie jigs: -ASCIZ 7 HALT PROGRAM, REMOVE RKOP P REPLACE IT/<15>< 12 
60333 104401 o03344 , TYPE 718 $3 TYPE ASCIZ STRING 
003342 900436 OR 0 ::GET OVER THE ASCIZ 
one big: “ASCIZ /WITH A WORK PACK: CLEAR LOCATION 40, AND RESTART PROGRAM 


OOS43& 012737 O0e4ee O00004 STe: MOV SBADTMO,ERRVEC ;SET TIMEOUT VECTOR_FOR 
;UNEXPECTED TIME OUT 


; THIS CODE CODE FI INDS WH WHICH IVES ARE PRESENT & PRINTS OUT THE DRIVE 
003444 104401 902452 TYPE 65S s TYPE ASCIZ STRING 
003450 000411 ER 64§ > GET OVER THE ASCIZ 
a jie5s: LASCIZ <15><12>/DRIVES Came 
74 105037 odize4 CLRB OORIVS s INITIALIZE NO. OF DRVS PRESENT 
002500 605001 2 €LR R 
0032502 012792 o01232 MOV sORIVO,R2 
3506 905003 CLR R3 TStag0 Fn COUNT TO O 
10 005737 001220 1S: TST XXDPMD LOADED F AN RKOS ? 
002514 901403 BEQ t$ :BR IF NO 
003516 120 001220 CMPB =-R3,, XXDPMD CHECKING TIME LOAD DRIVE ? 
opse54 Bi137 175734 &$ Soy ¢f JRKDA EP RES Me BRIVE 
003530 Taeees 175716 TSTB = BRKDS :1§ IT PRESENT? 
003534 190004 BPL 2s NO, BRANCH 
003536 105237 0901224 INCB © ORIVS SINCREMENT TOTAL & OF_DRVS 
903542 952712 j BIS #1, (Re) _3SET FLAG INDICATING THIS DRV PRSNT 
002546 905722 23: TST (Re)+ 
003&50 005203 INC R3 s INCREMENT COUNT 
002552 062701 o20000 ADD 820000, R1 !ADRES THE NXT DRV 
:CHKD ALL 8 DRIVES? 
OO2S5— 001354 BNE 1s :IF NOT, GO CHK IF NEXT DRV PRSNT 
2560 004 024164 ISR PC, SIZEF ;FIND WHICH 
ppseeg 106737 001224 TSTe ortvs :WERE ANY DRIVES PBouno? 
3570 091930 SNE 33 YES, BRANCH 
372 104401 003600 TYPE 67S :; TYPE QSCIZ STRING 
3§76 000403 gr bes :GET OVER THE ASCIZ 
26.06 ie7s: -ASCIZ / NONE/ 
Besece 000137 o1£172 IMP SEOP ;1F NONE WERE FOUND, GO : 
902612 3 CLR R :T0 Yn ae 
003614 OO 001232 MOY SERIVO, RO OEE SE EER IL DRIVES 
320 105710 S$: TS7B —s- (RO) ‘DRIVE HERE? 








103 


MAINDEC-11-D2RKL-D MACYL1 27(1008) O4-OCT-76 14:26 PAGE 18 
DZRKLD.P1:  31-AuG-7E 15:35 GET VALUE FOR SOFTWARE CHT TCH REGISTER SEG 0034 
863 003622 O01414 BEO 4$ NO 
864 003624 Ae tart Lor. 
| EE eke ste a R2,-(SP) :PUSH NO ON THE STACK 
rm, pe, TO ee sTO TYPE OTA CUPRESS LOG O°S 
Eee Soseae BYTE 
| 870 3 g32710 o00002 8IT #2, (RO) is IT RKOSF? 
uy of 3 oozes2 ais 33 Ne pe ASCIZ STRING 
873 003650 00401 BR bag ::GET OVER THE ASCIZ 
er jie: .ASCIZ /F/ 
| g7e 003654 oosece 4$: INC Re :POINT TO NEXT DRIVE & 
7 0057 TST (RO)+ :NEXT DRIVE IN TABLE 
| gg 30 001251 CMP RO, #ORIV7+1 sALL DONE? 
ec 4 ; BLT c$ :NO, CHECK REST 
82) sFIND out THE FIRST (FROM O-7) DRIVE THAT IS PRESENT. PUT THE ADDRESS 
BE :0F T HBT DRIVE IN 'DRIVAD’. INDICATE THAT DRIVE ® WILL 
| Bed 3;BE TESTED. 
«BRS «-OOBEEE «012737 001232 001226 ST3: MOV sORIVO,ORVPTR 
BBE 003674 105037 001223 CLRB- ORVDON 
£87 003700 005037 001230 CLR DRIVAD 
| 888 903704 105037 o0i102 NXTDRV: CLRB = $TSTNM ;RESET TEST NUMBER TO 1 
689 002710 005037 Ollie CLR SERTTL :CLEAR ERROR COUNT FOR THIS DRIVE 
®90 003714 013701 Od01226 MOY ORVPTR, RI 
2 993720 i 000001 1$: git #1, (R1S+ :IS THIS DRIVE PRESENT? 
| 37 I 2g YES H 
—«@83-«-00372 020127 od1ese 4§: CMP Ri, sDRIV7+2 :CHECKED THE WHOLE LIST? 
| §% 003732 001 BNE 13 :NO 
| BSS set 1517 MP op YES, EXIT 
ese 0101 1226 2s: MOY R1, DRVPTR 6 AHEAD 
897 002744 914104 MOV -(R1),R4 cet DRIVE NO. TO BE TESTED 
z 3746 005027 o02116 CLR FDRVE 
3 002114 Lr FORIVE :SHOWS F IF -1 
| & = 74 grr #2, R4 :RK-OSF? 
| Be Sere 7 oct INC FOR ;SHOWS F 
| $03 003770 0327 BIT #20000, R4 :EVEN DRIVE? 
304 002774 901903 BNE ? : 
Sos pos7re pie? 77777 «002114 MOV 8-1, FDRIVE :RKOSF AND EVEN 
ste 7$: BIC #3, R4 
$07 OO4010 019437 001230 MOY R4’ DRIVAD :SET UP DRIVE ADRES 
$0¢ 004014 104401 TYPE MS 
303 004 4] CLC 
$10 104 ROL oy : TYPE OUT THE DRIVE NO. 
$11 024 O06104 RY 
$12 OO4026 906104 
i Bee See 
gic Seaosa owes 
$ié 004 001 
$17 000 
Sie 
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o 
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a 
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ELAR RE EERE ES oe ee ie Se gO 


MMM 
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rAS 


004204 


MACY11 2711006) 
15:35 


O0E11E 
oo40s4 


O0le2e 
009400 


004100 


000011 
001102 


001560 
001106 
UOle2e 
174716 


175050 


O4-GCT-76 14:26 PAGE 19 
GET VALUE FOR SOFTWARE suite REGISTER SEG 0035 


Ht 4 + ee no -0SF? 
ire tgs i TIPE, ACIg, STRING, 
jiess: .ASCIZ “F/ 


= . 
=f: SW 8 IS SET THEN FIND OUT WHICH TEST NUMBER IS 
:SELECTED AND JUMP TO THAT TEST. 


CLRB = LUPSW ;CLEAR FLAG INDICATING SW@ SET 
SIT Boue_ ISUR :SW @ SET? 
- BEQ TST] NO, BRANCH 
. TYPE &7$ 53 TYPE ASCIZ STRING 
BR 6S T OVER THE ASCIZ 
i878: "ASCIZ <15)<1@/ocTAL TEéTs?/ 
" - RDOCT 
ry (SP)+,RO 
CMP RO, #11 :CHECK TYPED IN TEST # 
BGT z: :IS LEGAL, IF NOT ASK 
MOVB , STSTNM 
C RO :FORM POINTERS FOR THE TEST # 


RO 

MOY PT1(RO),$LPADR ;ADJUST POINTERS FOR SCOPE 
MOV SLPADR, $LPERR ik ETC. 

INCB LUPSW set FLAG INDICATING TEST # 


JMP JSLPADR :G0 TO THE TEST SELECTED 


:0N RECOVERY FROM POWER FALIURE RETURN HERE 
PWRFL: CLR RO 


CLR Rl 
1S: INC Rl 
BNE 1$ 
INCB RO 
BNE 1$ 


TET ans Reet tie Geer enes Pe” 
¢ 
pine & rest PERT ORS 2048) SEEK . qr oetn t ra" 


ihe Bh Tie Fe aTae i, ay he Fx Fo 


HANICAL FRI 
cseunaniGY PECHANTORL FRILURES WOULD SE VERY ELPTUL. 0 OO" 


tir) 








MAINDEC-11-DZRKL-D MACYL1 27(1006) a -OCT-76 14:26 PAGE AGE 20 
| DZRKLD.P11 «=—-1-AUG-76 15:35 CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY SEQ 0026 
fr on Suse aa cle a NTTTeL ioe COUNT F R ® OF SEEKS 
ac8 Se LE BB He ATaINe, Seéx MeReS 
| a8 004214 ponte 004246 001110 MOV #208, SLPERR i$ FE URN ADRES FOR LUPING 
| $80 oO4ez2 912703 001266 Mov sBLER RS ic POINTER 1, THE TABLE fey 
| 3 BS ieope t008" MOV 8-10" RS :ALLOu ONE ONY & SRUSBRESERRSGRY beRcRe > 

383 bo4S36 000402 BR 2$ 
| S85 004240 905702 18: TST R3 ;WAS THERE ANY ERROR? 
236 242 051493 BEQ 3$ :N BNCH 
| 244 905003 23: CLR R2 CLR FLAG 
368 OO4e46 104415 20$:  CON.RESET iGo po Gn RESET. SUB ROUTINE 
220 oo4250 104416 DRV.RESET :GO TO 'DRV.RST’ & DO DRY RESET 
| 
992 O042S2 013777 001230 175204 3S: MOV DRIvAG ORKDA —s ; ADRES THE DRIVE 
| 983 O04260 060277 176200 BIS 2, aRKDA :SET SEEK ADRES 
in oS povees ite77? iSite feta GRADS DRIVE ROY? 
age 105406 BMT 218 iE 
986 «004272 004737 016106 ISR PC, GTYRG RKCS, ER, DS, DA 
| 987 Q0427E 104030 ERROR 30 Drive’ RO BIt IS’NOT SET 
é36 904300 o0s203 INC R3 UN Ree OR FLAG 
| 4000 202 005205 INC RS !ALLOW ONLY S ERORS, IF MORE 
11 304 OO1sié BEG 18$ : ABORT 
1003 004306 212777 000011 175142 218: MOV #11, ORKCS 
1004 004314 GoSe200 4g: INC RO MATE ER CNTRL RDY 
| 100s 004316 901007 BNE S$ swat TED LONG? 
ios 004320 004737 OI1610E ISR PC, GTYRG + +G0, GET RKCS, ER, DS, DA 
1008 O04324 104001 ERROR 1 sCNTRL RDY DION’T SET AFTER 
1008 :SEEK WAS DONE TO CYLINDER 
1010 : SHOWN IN, RADA. GO 15 *RK11 LOGIC TESTS’ 
| io 326 o0s203 INC R3 SET ERR 
| 101 330 905504 INC RY tEXIT ange TEC IF THERE R S OR MORE ERRORS 
1013 004332 901502 BEG 18 
“1014 334 00040 BR &$ 
| {61s 336 105 175114 cs: TSTB © aRKCS sDID CNTRL ROY SET? 
| +016 342 100264 BPL 4g !IF NOT WAIT FOR IT 
| 301 6S: CLR RO s INITIALIZE COUNT 
ete Bosse seen 000100 175076 By #100, IRKDS he ROY SET? 
1020 004254 O01010 BNE 7§ : 
l INC RO WAIT FOR R/W/S RDY 
} 1 6$+2 
i 73? O1G106 ISR PC, GTYRG GET RKCS, ER 0s, ba 
1024 OO4366 104006 ERROR 6 !R/W/S ROY DIO NOT SET WHEN SEEK 
ides WAS DONE TO OWT Pe INDICATED IN RKDA 
cee 370 o0s203 INC R3 SET ERROR 
1027 004372 o4 INC RY :IF MAXM EROR COUNT, ABORT 
| es Besar b3277? 001000 175046 78 Ef te QRKDS :SIN ERROR? 
55? Bpasae 1406 ; 8E0 es :NO, BRANCH 
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REBREB Id Vota sancs 
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905203 


004504 
OO4¥S0E 005205 
001415 


004510 


0045 12 
004514 


005702 
001402 


00S00e 
000647 


012702 


00S201 
22901 


Bovése | BadtOs 


al. 
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15:38 


016106 


175026 


016106 


175006 
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002000 
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014500 


000200 


10S: 


174756 128: 


15S: 


168: 
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PAGE 21 
CHECK INNER LIMIT SWITCH 8 ELECTROMECHANICAL INTEGRITY 


O4-OCT-76 14:26 

Tl] 
JSR PC, GT4HRG 
ERROR 2 
INC R3 
INC ce 
BEC 18$ 
TST JRKER 
SPL 10$ 
JSR PC, GTYRG 
ERROR 3 
INC R2 
INC nf 
BEG at 
TST eg 
Fee BE cups 
ERROR 4 
NC 
INN ORE 
BEO 
BIT #2000, 3RKDS 
BEG 
JSR C,GTYRG 
ERROR 
INC i) 
INC - ah) 
BEG 18s 
TST 
BEO 16$ 
CLR Re 
SP 1$ 
MOV #14500, Re 
INC Rl 
CMP #200,R1 
NE 1$ 
R TST2 


GET ee ER, OS 


Sih ERROR, Of Doings beer TO 


is 
COUNT REACHED, 
ieoRT THE a ge 


:60, GET RKCS, ER DA 
:DRE ON DOI NG SEEK 5° CYLINDER 
:AS 7 SHOU IN” 

RROR PRG 
iff MAXM EROR COUNT REACHED, 
!ABORT THE TEST 
ERR’ BIT IN RKCS SET? 


N 

3 Er Ree aa OBN BO DOING SEEK 

70 CL fs n° WN IN KOR. sedi 
RROR 


: SET LAG 
IF MAXM MO al REACHED, 


!ABORT THE T 

: DRU SET" 

:NO, 

G0) GET cer ics 

:DRU SET, ue Bm an RRECOVERABLE 
i Paa aal 6 RL ERROR 
OULD BE LeAReD: IF IT 


IS NO 
:1) THE HEAD POSITION TRANSEVCER LAMP 
:IS INOPERATIVE 

:2) OR ERASE OR WRT CURRENT PRESENT 
tWIT "WRT GATE’ 

:SET EROR FLAG 

‘ALLOW ONLY 5 ERRORS 

:IF MORE HAN S 

:GO TO THE END OF THE PROGRAM 


;WAS SEEKING TO 0 OR 312? 
;T0 BRANCH 


TO 3le 

:SEEK NXT TIME TO 0 
:G0 BAK & SK TO 0 
;SEEK NXT TIME TO 212 
;DONE SEEKS 200 TIMES? 


yIE NOT, GO BAK 
;;EXIT 


SEG 0037 
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000137 


005777 
100001 


104415 


015150 


230 
Boe 
002116 


177152 
177764 
177773 
177773 
001230 


174624 


002120 


174602 


174566 
001110 
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PAGE 22 
CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY 


14:26 


MSG4 


TYPE 
IMP tsTle 


{ATEST 2 


NET? os boats PE veomer gio, 00 fe 


"GGhE IN THIS TEST. A SECTOR 15 FORMATTED 


THE EIRST OWRD OF EVERY “bal Of 1S WRITTEN 
iat BEA SUEDO-HER R CONTAINING THE DRIVE 8, CYLINOER 
;# te SECTOR 8 OWING 1S CHECKED 
iS8i00 THE SANE ce ee edt te FREE 
HARETRIES BRED 


*ERR’ ON : TROING ofnaT tf 
OUT WHAT CAU 


TERROR IS REPORTED. 


MESSAGE IS rales. 


Ce 


gereznynientntnnenanemenentmnentmeenann 
T2: SCOPE 


118: 


4$: 
1S: 


3$: 


les: 


S$: 


MOV privae. , DRHOLD 


11$ 
TST FORVE! 
BNE TSTs 


MOV oy Re 


MOV 4. R3 
MOV ‘5. Tah 

MOV f-e'Re 
MOV DRIVAD, RY 
CON. RESET 

ORV. RESET 

CLR ORO 

TST IRKCS 

BPL 33 

CON. RESET 

CLR -(SP) 

MOV #12$,-(SP) 
RTI 

MOY OUTBUF 
MOY ROU TRUE JRKBA 
MOV 4, aR DA 


MOV #457 $LPERR 


MOV #2003, JRKCS 
CON. RDY 


BIT #1000, aRKDS 
BEQ 

JSR PC, GTSRG 
ERROR 7 


See 1PPEVEN Bhd ea DRIVE 
:ODD RK-OSF? 
:DO NOT FORMAT IF ODD RK-OSF 
i CYLINDERS, (406 TRAKS) 
LLOW Ofc Y S *SIN’ ERRORS 
‘Act OM ONLY 5 *ERR’S 
:STORE ADRES OF DRIVE. 
:G0 TO 'DR-RST’ 3 Po DRIVE RESET 


KEEP COUNT OF ’SIN’ ERORS 
BLL OW 3 RETRIES aN SIN 


;G0 TO "CN-RST’ 8 DO CONTROL RESET 


;SET gl Ww TO ZERO 
ITE THIS WORD 

TFROM T HIS ADRES 

: ON HIS at SECTOR 


WRITE 1 WORD 
;SET RETURN ADDRESS FOR 
;LUPING ON ERROR 


e WRT FMT 


;WAIT_FOR OTe, READY 
;WAS THERE A SIN? 


:NO, SKIP DOING DRY RESET 
GET RKCS, ER, DS, DA, CYLINDER 
Sth ee non ON’ TRYING TO 


SES 0038 


03 


MRINDEC-11-D2RKL-D MACYL1 27(1006) O4-OCT-76 14:26 PAGE 22 
DZRKLD.P11  31-AUG-76 15:35 T2 FORMAT THE DISK SEQ 0039 
| 4143 sWRT_FMT_ON CYLINDER AS 
113s ie Boe. IN RKDA. 3 RETRIES 
| 1146 NOTE 3 T BEFORE 
1147 o04726 104415 CON. RESET :RETRYING A DRIVE RESET WAS DONE 
hoe 114g 2 416 DRY. “RESET $95 TO. wOR-AST 5 po DRY RESET 
734 022700 000003 CMP 2 ou R Ne ERE THERE 37 
118 Reseed he BNE #3 80 sere it 
1183 004742 905201 INC RI id on SIN nei RO ; 
| {122 cowry poi436- peo «gs IF MORE THEN & Ext a TEE 
| 1158 O04 005777 174504 6S: qs aeKCS src o'vERR B11 SET I 
| 1126 at 4 Apacs 016062 S be, cTsRG 360! EF 4 ‘Eecs ER, 0S,DA,CYL 
1158 004760 104010 ERROR j ERR uQOSURED WHILE BOING 
1160 MT ON SECTOR, CYLINDER 
116] cna ian “e : ne. IROLCATED IN N RADA. a 
iB 004764 001426 BEO a . THAN S se FT Th THIS TEST 
| 1164 004766 b05<04 73: INC RY  INCRMNT DISK ADRES TO NXT SCTR 
Lee at eee ENE 1 HE wif, 5 Bae ae Net NXT SCTR 
| 1168 004774 012703 177764 MOV #-14,R2 RESET COUNT FOR 12 SECTORS 
1168 2704 000017 BIC 17,R4 CLR OUT SEC BITS 
| 1171 O0S004 062704 oDD020 S$: ADD #20,R4 ;ADRES THE NXT_TRAK TO B FMTED 
117e 005010 o0S20e INC Re :ALL TRAKS FMT 
| 4173 005012 001304 BNE 1$ IF NOT GO BAK B "et NXT CYL, SUR 0 
| 1174 005014 605237 002114 INC FDRIVE ;EVEN RKOSF? 
| 1175 o05020 001004 BNE 1 
1176 005022 0627327 oeco00 001230 ADD #20000, DRIVAD FORMAT ODD DRIVE OF F 
1177 005030 oo0bé1 BR 1 
1178 005032 013737 002120 001230 .10$: MOV DRHOLD,DRIVAD  ;RESTORE ORIVE ADDR 
| 123 005040 000402 BR TST3 + EXIT 
1181 ooso42 004737 OIE7IE 9S: ISR PC, ABRT 
; 2183 5 RREREAE EERE RE REE EEE REEL EEE EEE ER EKER EEA KEE RE RELL EERER EER EEE 
1184 TEST 3 READ FORMAT OF THE ISK 
| fies :* IN THIS TEST, THE HEADERS FROM ALL THE SECTORS ARE READ 
118s ti B CHECKED KED IF’ THEY ARE CORRECT. THE FOLLOWING IS THE 
-& 
il * REA 2 SECTORS (HOR af Y) AT A TIME 
{iE i; 5: iF he dee A SIN’ f RETRY ONCE MORE, IF SAW AGAIN 
ita . REPORT eRe ee ; READ HERDEN, FROM NEXT. one Hp RESET, REPORT 
t1é 3 Zeroh 3 BERD teen EE ERO rex CYLINDER. tf THE ARE 
1193 i NORE THAN S RRORS OF T HIS k ND, THIS TEST ul " Nee EXITED 
i133 r* 4. HE 12 HEA ARE CHECKED. HEY ARE CORREC 
1 te Next” CYLIND RR 
1196 :# IF THEY ARE” NOT CORRECT, A RETRY IS DONE: IF AGAIN CORRECT 
| 4197 ;# HEADERS ARE NOT RECIEVED, AN ERROR IS REPORTED. THE 
«disse :*# SECTOR #’S GIVING THE BAD HEADERS, & THE BAD HEADERS ARE 
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B04 
$1 27(1006) 94-OCT-75 
3 BFa'¢ tae oe OF rhe OISK SEG 0640 
;# STORED. 
:# . IF INHIBIT Ty YPEOUT’ SWITCH IS NOT SET, THE FIRST WORDS OF 
;# THE 12 SECTORS (PSUEDO-HEADERS) ARE REAC.” IN ; PREVIOUS 
ie TEST THe Fest OF EVERY CTOR Wes weit 
# AS A SOFT HEADER (CONSISTING OF DRIV Ls, SUR, SEC®) 
:@ THEN THe SECTOR # GIVING BAD HEADER, ©XPE ween Put aie SAE 
t@ & THE PS-HEADER RECIEVED ARE TYPED Our. 
@ WRONG, HEADER WAS READ WRONG, ETC. 
:* 6. Bis? NEXT CYLINDER IN LING IS READ. ORDER OF READING IS 
# CYLO,SURO  CYLO,SURI CYL3ie, SURI 
jjapeveeltesassdssnsesnassebinssessssenintbasbiaessesnssasessess 
001504 MOV 8-5 ERCNT! OW ONLY S ERRORS (OF BAD HEADER 
i KIND FROM 5 CYLINDERS) 
$81308 MOV #-12,ERCNTe 
1510 MOV 8-5 ERCNTS : +O HONEY ERRORS 
MOV DRIVAD, RS CYL ADRES=0 
001476 # HOV g-b26, INDx2 : ee ne (bob ar ) TO B READ 
: Sey: BESET BS Sete beceee 
: LR TRY2 RETRY READ WRONG 
3: LR TRY! ates RET RIES bores SINS* 
174334 23S: Nov SOUTBUF , SRKER 08 RS INT Loc STARTING AT THIS 
174320—Oti; MOV 8-14, SRKWC ile § 05k 
oo1lio MOV 4, $LPERR :SE ie MEE BES URN Sees FOR LUPING ON ERROR 
174302 MOV 82005, aRKCS :G0, RO FMT OF THIS CYLINDER 
CON. ROY WAIT FOR CNTRL RDY TO SET 


174266 «SS: eI #1000, aRKDS ;*SIN’ ERROR” 
TSR BP cETINE peers 


RR N’ OCC WHEN DOING & EMT 
a BEE 8 
“RESET DO 
ee ee ee 
ENE Hf ‘Beak Berit 5 Bk 8 & RETRY 
TRIED TWICE, BUT "SIN’. 
ng FRONT :ALLOW § ERRORS AT MOST 
16$ 
tS: "4 eKcs a IN RKCS? 
PC GTSRG GET RKC DA, CY WOR 
ceROR 2 tebe’ te” toi AS 
FRO cn T with IN RKDA 
CON. RESET :60 an CNTRL RESET 





Ev: ee ee ee ee eee 


MEINOEC=11-DZRKA 2 MACYL1 27(1006) O4-OCT-76 14:26 PAGE 25 
| OZRKLESPII ~~ 31-Aus-76 18:38 13 READ FORMAT OF THE DISK SES O04: 
cis ALLOW ONLY 12 ERRORS OF 1 
] oose44 905237 Oo0150& INC ERCONT2 sKIND, THAN FIVE Hts ae 
| 52; D 9 TST4 sur “rats at 
j =o BEAESE se 14g rig T UP TO RD FMT FROM NXT 
| 1260 sCYL rn ie RECVO 
8 hg Te Ws SEA 
264 ; , 
ze o0s2s4 "4737 907204 7S: JSR PC, CHKHORS :GO CHECK IF CORRECT HEADERS WERE READ 
«Tae? 001500 TST 2x3 :HOS THERE A NISCOMPARISON” 
| Tes 608264 001513 BF 14 ITF NOT, GO st 0 RD FMT 
«HESS : ;NxT CL IN LINE 
re 012737? 005114 001110 MoV 82, SLPERR 
| ye7i O0Se74 1001 ERROR 13 : CORRECT HORS WERE NOT RECVD 
3G ;FROM SECTRS AS TYPED Our : 
7 005237 001254 INC RETRY res ) ae ee ane cy 7 BGAIN 
is 022737 cea oo12s4 ime BE Be eRYE : TRIED BBING SAME CYL Sitce 
| 08 005315 00130: BNE zs LIF ly Go RO AGAIN 
278 005312 00S237 001504 INC ERCNT! ALLOW ONLY S ERRORS OF THE 
SoA ‘ VE T F MORE THAN le 
| Bed EXIT THIS TES 
28] O0S316 o0lS05 B50 168 , ' 


ees 005320 208 THE PSUEDO-HEADERS (FIRST WORD OF EVERY 
255 SECTOR) FROM THIS CYLINDER (ABOVE 
;THE CYLI T GAVE WRONG HEADERS) 
WILL oe RERD , NOW. FOLLOWING WILL B TYPD OUT 
s3EC XPCTD'PSUEDO-HOR, RECVD PHOR. 
:1 tNAIBIT TYPEOUT™ SW IS SET THIS ENTIRE 
584 oosz20 032777 oO20000 172612 BIT #20000, aSWR sIOeUGDY I ne ee ot Bree 
1 OSs O01072 °° °° #2~§ SY at wn YES, § LIP THe NG $ GO 
: ORD FM a CYL IN LINE 
005230 012701 177764 MOV 8-14.R ; SECTRS 
eRe ee Ee in, roy Revamia PRON This Gace 
d * J : 
iz 015777 1 174104 108: MOV 8-1, IRKUC 3RO 1 in 
SS 005354 012777 O0O000S 174074 MOV 85, IRKCS 360, RD 
300 104421 CON. ROY :WALT FOR CNTRL ROY 
201 174066 77 aRKCS sAiNY Froee 
53 Shes: poate CON RESET CLEAR 
En 500447 BR 148 EROR, Ms COULDN'T READ PSUEDO-HDRS 
306 005376 005201 15S: INC RI s READ FROM ALL 12 SECS 
2 306400 001362 ENE 10s :IF NOT GO RD THE NXT ONE 


. a ee +02 0 Oh bb 8 eh ee ee 
’ ’ 
att 
Bie t 


Crd 


eo 
0 


: TYPE QUT PSUEDO-HORS CORRESPONDING 7 
;THE SECTORS WHICH GAVE BAD HEADERS 
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MACYLL 27( 1006) 
15:38 


001266 


177777 


006380 


001213 


900020 
001476 
005110 
016716 


04-OCT-76 
T3 READ | 


e- 
o- 
we 
ee 


les: 


138: 


14S: 


168: 


TYPE 
MSG11 
"0 


< 


YPE 


é 


3S 
a= 


Duyn 
4Oo-4 


DOY 


14: 26 PAGE 26 
FORMAT OF THE DISK 


s8UFR,R1 


(R1),R2 
soUTBUF R3 
Re 

138 


Re 
(R3)+ 
les 


(R1), (SP) 


(R3),-(SP) 


(Rl)¢ 

( 

l 

MSG? 
b20$,-(SP) 


, SCRLF 


#20, R5 
ke 


tty 
i$ 


PC, ABRT 


R 
. ), 8177777 
















:;TYPE: SEC #8, EXPC P-HDR, RECVD P-xDS 
3 TYPE OUT 

;SEC #°S ARE STORED HERE 

;TYPE CR, LF 


s POUEDOCHEROERS WHICH WERE ‘ 
;READ ARE STORED HERE 


;1S_ THIS SEC # CORRESPONDING TO THE 
;ONE_ IN ERROR 
;R2 CONTAINS THE SEC 8 


GO _TYPEQUT SEC 8 GIVING 
i MYscome ISON OF HEADERS 


;SUPRES LOG 0°S 
; TYPE 2 BLANKS 


360 TYPE EXPCTD PSUEDO HEADEF 


; TYPE 2 BLNKS 
;GO0 TYPE PSUEDO-HEADER RECVD 


; TYPED OUT ALL SEC 8°S IN ERROR. 
;IF NOT GO BAK & TYPE NXT 
; TYPE OUT PC 


; TYPE ROUTINE ENDS HERE 

sE IN INO OUT NXT TRAK TO B READ 
sSET ADRES FOR SUR 0, NXT C 
Hod ALL 313 cf tubers (626 
: fF NOT, GO BAK & READ NXT 


CYL_IN LINE 
TRAKS)? 


| MRINDEC-11-DZRKL-D MACYLL 2711006) O4-OCT-76 14:26 PAGE 2 . 
| DZRKLO.E11 © 31-8uG-7& 18:35 13 READ FORMAT OF Tie DISK SEQ 0042 
| ‘ 
12? ° 5 SSSSFRESASESERARLLSAAFSELELSFASLASLSLEAFLELSFSFAASFALLFELEFSS LESH ES 
| 1368 ;#TEST 4 SEEK PATTERNS: O-312-0-311-...,USING IMPLIED SEEK 
tac :eee4TEST 2 (WRITING PSUEDO-HEADERS ) SHOULD HAVE BEEN DONE BEFOREssss 
| 1372 eeee D THIS TEST 
| 1323 :#THIS “ies? BE PERE SEEKS (IMPLIED SEEKS USING *READS') IN THE 
1375 :#FOLLOWING PATTERN. 
1375 :#0-312-0-311-0-310-..... 0-1-0-0 
+38 saTHE FIRST WORD OF EVERY SECTOR IS A PSEUDO-HEADER (URITTEN IN 
a #8 PREVIOUS TEST) agonszsTINe OF DRIVE NO, CYLINDER NO., SURFACE 
13 :#AND SECT AN IMPLIED SEEK IS DONE BY ISSUING A ‘READ’ FOR 
| 1380 SETHE PSEUDO-MEADER OF SECTOR O, SURFACE 0. 
| 1363 sIF A °S N" OCCURS TWO TRIES ARE DONE BEFORE ABORTING. IF A ‘SKE’ 
| 1385 t¥OCCURS IT COULD MEAN THAT 1) EITHER THE HEADERS WAS READ WRONG 
‘13s :#0R 2) THE HEADS GOT POSITIONED ON THE WRONG CYLINDER. IN 
3g ; #ORDER To PROVIDE A FURTHER INSIGHT INTO THE PROBLEM, THE FOLLOWING 
| Tae SS THE HEADERS @RE READ FROM THE CYLINDER THAT GAVE ‘SKE’. IF THE HEADERS 
| Lege [#ARE CORRECT IT IS SO REPORTED. IF THE HEADERS ARE INCORECT, THEN THE 
/ 4386 : XEXPEC a HEADERS AND THE RECEIVED ONES ARE REPORTED. ONE MORE TRY 
| 1390 : (THE IMPLIED SEEK IS TRIED AGAIN BETWEEN THE CYLINDERS that Cale RISE 
| 1321 :#T0 SKE’) 
| pe; 
1333 ;#THE FOLLOWING ACTION IS TAKEN WHEN THERE IS NO 'SKE’ OR 'SIN’ GUT STILL THE 
1265 : #PSE ADER IS READ 
1395 :#FIRST THE HEADERS ARE READ FROM THAT CYLINDER ang CHECKED. IF THEY ARE 
136 :#¥CORRECT, IT IS 50 REPORTED. IF THEY ARE WRONG THEN THE EXPECTED BND RECEIVED 
1397 i HEBDERS E REFORTED. THEN THE PSEUIDO-HEADER FROM SECTOR 1 IS READ AND REPORT 
Lise ONE MORE TRY IS DONE BY REPEATING THE WHOLE PROCESS. (IMPLIED SEEK 
1335 i SBETHEEN Th THE TWO CYLINDERS AND READING PSEUDO-HEADER FROM SECTOR O OF THE DESTI 
140] 
1402 ;#UP TO 12 ERRORS OF EACH KIND (SIN SKE, BAD PSEUDO-HEADER) ARE ALLOWED. 
1402 #IF ANY ERROR OCCURS MORE THAN le TIMES THE "EST IS ABORTED. 
i 1404 sreseesitigesovssieesesvanstersosanseseesestasiensy: SLLAFLELAEEF 
tape SEES yt ter: CON. RESET GO DO CONTROL RESET 
| ie Boeese Susie Fey RESET 360 BO DRIVE RESET 
1408 OOSS44 ODOS004 CLR RY sELAG, CLR IF DOING, IMPLIED 
1416 EK IN FE FROM on To : ENROR 
i4ii ROM *INADR’ 
fai5 46 Ol 177465 001476 MOV #-313, INDX2 a a al 
taig BReece BF 179764 y $-y47a , 
ng Bee bees Seles meee tHe 
i312 SeEESe 818935 BETEGE MOV Eo" ERENTS : 
1415 005574 012737 O14500 oO1z60 MOV #14500, INADR § ;’INADR’ CONTAINS THE INE 
ise icy Tee TO WHICH IMPLIED ster WILL 





MAINDEC-11-D2RKL-D MACYLI 27(1006) 
DZRKLD.P11 31-AUG-76 18:25 
Beem los 
send 1260 
Bele 705 001230 
ad 001230 
605632 012737 177776 001252 
so5e30 i273 177777 001256 
Sheees reese 
D05E52 104416 
005654 004737 o0e4se 
OOSEED 012777 177777 173872 
OOSEE6 019577 173572 in 
Bees cE fe See ze6 lil 
005706 012777 o0000S 173542 
i447 005714 104421 
005716 001000 173526 
05724 001434 
00s726 737? 016322 
005732 917737 173514 001170 
005740 017737 173510 001166 
B0S74— 104420 O01] 
ScS/Se 013737 001256 901172 
005760 062737 000002 00117, 
0076 04014 
905770 905737 001256 
005776 Spez3 001256 
606002 000722 
37 oO01S04 
io 001103 
006012 000137 opesyo 
006016 032777 010000 173430 
006024 061506 : 
Sense Bisse SSSSTE oon 
CO6040 017737 173406 601170 
OO604E 013737 OOles2 001172 
006054 062737 603 001172 
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1$: 


es: 


33: 
138: 


4§; 
¢$: 


ss: 


7$: 


15S: 


PAGE 28 
SEEK PATTERNS: O-312-0-311-.. 


TST RY 

SNE 

MOV NADR, RS 

gis RIVA, RS 

3 3 

MOV DRIVAD, RS 

MOV 8-2, RETRYZ 

MOV 8-2, RETRY! 

HOV 8-1 RETRY 

CON. RESET 

ORV. RESET 

ISR C,SBRI 

MOV a sRKWC 

a s0UT KBA 
V ate far 

MOV —-&S, ARKCS 

CON. RDY 

BIT #1000, 3RKDS 

BEQ og 

JSR PC, ERRI 

MOV DRKDS, SREGS 

MOV DRKER, SREG2 

TYPMSG .MSG1 

MOV RETRY3, SREGH 

ADD 82, SREGH 

ERROR 14 

TST RETRY3 

BEQ ? 

INC RETRY3 

BR 6$ 

INC ERCNT! ° 

BNE 19$ 

IMP EXTY 

BIT #10000, IRKER 

ee OBS erp 

iB ORKER SREGE 

MOV ORKDS. $REGS 

MOV RETRY! SREGH 

ADD #3, $REGH 


;GO 
; IMPL 
:GET TRY # ON SKE’ 


» USING IMPLIED SEEK 


ADRES FO 
DISK ADRES FOR OUTER 


eeeee ee ee ee 
onon 


case 


;REPOSITION HEADS TO PRE-ERROR CYL 


‘FROM tii $ TS CrLINOER, SEC 0 


Ys eta euBRES am LUPING 


60, READ | 
;WAIT FOR CNTRL ROY 
:SIN? 


BRANCH 
es THERE WAS A SIN 
GO GET, CYLS BETW*N WHICH SK WAS TRIED 


;SAVE TRY # ON ‘SIN’ 
AN IMPLIED SEEK WAS TRIED 

FROM *CYLA’ TO "CYLB” CINOICATED 

IN EROR MESAGE> “SIN” OCCURRED. 

:2 TR FS ARE DONE BEFORE 

DONE RETRIES 

YES, BRANCH 

:G0 00 2ND TRY 

;ALLOW LESS THAN 12 ERORS OF THIS TYPE 


IF MORE SKIP THIS TEST 
EXIT THIS TEST 


Lf IS oe 


; SKE? 


esis 


CUNO UNTO OTTO ONO cna 
08s hs 8 8 8 he ee 
WMDNMU£ooTMe-O 


RES 


iS 


m 


ttt 


8 es a os os Bs Bs Be Be he be Os ee he ee hee 


ininiais 
SEBe 


GO4 


KL-0 MACYL1 27( 1006) Q4-0CT-76 14:26 PAGE 29 
31-AuG-76 15:36 Tt EK PATTERNS: 0-212-0-311-...,USING IMPLIED SEEK SEG CO4S 
104420 901610 TYPMSG ,MSGE :GO PRINT ’SKE’ 
104014 . €RROR fy : IMPLIED SEEK WAS TRIED FROM 
ae 0. ove" (INDICATED 
Pte *SKE’ OCCURRED. 
LO4415 CON. RESET Ries ore eb ” 
004727 00647 9$: JSR PC, SBRE G0 READ RS FR 
ETE AEG 
RS CONTAIN 
‘DY SK ADRES THAT WILL BE ED. 
012777 000015 1733S2 MOV #:5, dRKCS 560 D0 DRIVE RESET 
WHILE E ane DRIVE IS IS DOING RESET 
) Ti Che cKERS PES hrED 
005737 001500 TST INOX3 s WAS aytene A_MISCOMPARISON 
001006 BNE 10S ig ONY INDX3)0 HERE Was. 
"NO, THERE WASN'T. HDRS OK 
905227 001252 INC RETRY :ONLY 2 e TRIES FOR’ Sk 
1414 BEG 12$ ;BRANCH IF THIS WAS A 2ND TRY 
104420 001657 TYPMSG ,MSGS ;TYPE OUT THAT HORS WERE READ 
SCORRECTLY. THIS WAS TRY 8 1 
ooo4os BR 118 
sHDRS WERE READ INCORRECT. 
905237 001252 10$: INC RETRY “ALLOW & TRIES F OR SKE 
i4l1 BEG 148 !BRANCH, IF THIS ND TRY 


; THERE WAS SKE ON DOING IMPLIED 
104417 000015 MESRGE ,15 :SEEK TO "CYL B°. ae HORS WERE 
READ FR OM CYL B, 


104423 11$:  RESDON sHATT FOR PREVIOUS DRIVE RESET 
004737 o064S2 ISR PC, SBR! 2S OE ePOSTTION HEADS 
000634 BR 4§ 
;2ND TRY, SKE THIS TINE ftS0. BUT 
:READ HDRS S CORRECT. 
NOTE THIS HAS TRY 
104420 001657 123:  TYPMSG ,MSGS : TYP one tes fre 20,2 


; READ CORRECTLY. 


oo0402 BR 16$ 
:2ND TRY, SKE THIS TIME ALSO. 
104417 000015 148:  MESAGE ,15 :READ HDRS FROM CYL THAT 
:GAVE SKE, THEY WERE INCORRECT. 


104423 168: RESOON ;WAIT FOR PREVIOUS DRIVE RESET 





HO4 


MACY11 27(1006) 04-OCT-76 14:26 PAGE 30 
18:36 v4 SEEK PATTERNS: O-312-0-311-...,USING IMPLIED SEEK SEG COME 
:TO0 BE DONE 
001806 INC ERCNT2 sALLOW ONLY LESS THAN 10 ERRORS OF 
:THIS TYPE (SKE) 
NE 17 
o0es40 IMP Ex?4 sEXIT THIS TEST IF MORE 
178: TST RY sWENT LAST TIME IN OR OUT? 
BNE 19$ : uT 
TST R3 WERE HORS CORRECT? 
BNE 198 : NO 
> YES 
18S: INC RY 
o064S2 ISR PC, SBR1 £00, POSITION HEADS BAK ON INNER 
poseo2 IMP 1s kD “BAK & SEEK OUT NOW 
001476 198: INC INDX2 sALL SEEK PATTERNS DONE? 
BEQ TSTs :sEXIT 
p00040 001260 sug #40, INADR :SET ADDRESS FOR THE NXT 
INNER CYLINDER 
CLR RY HINGICATE. THAT NOW SEEK IS GOING 
ooseo2 IMP 1S it BAK 4 SEEK IN TO *INADR’ 
208: :IF THERE WAS NO SIN OR SKE 
‘ENTER HERE 
005624 001110 MOV 82, SLPERR SET RETURN ADRES FOR LUPING 
026362 CMP RS, OUTBUF :CORRECT PSUEDO-HEADER READ? 
BEG 24 YES. CH 
901254 o01172 MOV RETRY2, SREGY T'TRY # 
o00002 001172 ADD #3, SREGH 
ISR PC’ERR :GO GET CYL #'S BETW'N 
SWATCH THPLIED SEEK (READ) 
LI&& MOV RS, SREG2 Get EXPCTO PSUEDO 
Beesee 001170 MOV OUTBUF , SREG3 SUEDO-HOR RECV 
ERROR 16 ; IMPLIED SEEK FROM an TO CYLB WAS DONE. 
PSEUDO-HEADER OF SEC 0, 
:CYLB CIN EROR MESAGE), BUT 
THE WRONG PSEUDO-HEADER WAS 
RECEIVED 
001254 INC RETRY2 
BEQ 21$ 
o0se32 IMP 13 
006476 218: JSR PC, SBR2 :G0 READ HEADERS (12) FROM 


THIS CYLINDER, & CHECK THEM. 
ie F RISCORPRRESON INOX3 WILL 





104 





MACY11 271006) ot 
. 15:36 4 Tey? 2iFferne O- 3412. -0-311-...,USING IMPLIED SEEK SEQ 0047 
1531 006330 gos? 37 901500 151 INOXs 
1593 Seesse % ae 001657 Pe ASG MSGS WRONG PSUEDO-HDR WAS READ 
1594 BUT WHEN HORS WERE READ 
15s iF ROM OM THE SANE CYLINDER, THEY 
ibs OOe342 o00402 BR 23% 
1596 006244 104417 O00015 228:  MESAGE ,15 ine N PSUEDO-HOR Was RE oe 
tEa4 fa ugsbers ‘dtee RoR Meas tug 
1601 SAME CYLINDER. THEY WERE ALSO 
fee eae 
} 006350 010500 228: MOV RS, RO NOW READ THE PSUEDO-HEADER 
| 160 ooba5e po5e09 ay INC RO sno THE NEXT SECTOR (1) 
| ieee Spe sec Bt ee 173074 MOV party oRKBA 
2 006366 012777 177777 173064 MOV #-1, aRK 
108 012777 o0000S 173054 MOV as, sere 
1609 SDb40E 044 CON. RDY 
1610 j 9011 MOV RS, $SREGO 
ili Odé4i0 337 aE RES ISR PC’GCYL :G0 GET CYL # 8 STORE IT IN SREGO 
gl 006414 010037 901164 MOV RO. $REG1 :GET EXPCT PSUEDO-HDR FROM SEC 
| 4613 006420 013737 362 001166 MOV OUTeLF $REG2 
| 161% OO6426 104417 00001 ME SAGE ;PSUEDO-HEADER FROM SEC 1, CYLB 
 «‘dgIS 5 CIN MESAGE) WAS READ. THE EXPCTD 
| 1616 & RECVD DATA WORDS ARE REPORTED. 
| 161? 006432 005237 001510 INC ERCNT3 ALLOW ONLY LESS THAN 10 ERRORS 
1618 :OF THIS TYPE (WRONG PS-HDORS) 
1613 D0E426 01440 BEQ EXTY 
| 1621 006 24g: TST RY ;SEEKED IN OR OUT LAST TIME? 
| le2e OOG442 OO12EE BNE 198 !IF OUT, GO SEEK NXT INNER CYL 
ige3 :IF IN, GO SEEK 0 
JES p0bs44 jcOse04 INC RY : INDICATE THAT wanek OUT (0) 
ibs O0644¢ 900137 oosEce IP 1g ‘WILL BE DONE NO 
i 1 
iE? ; THIS ROUTINE IS USED IN THIS TEST ONLY. 
1ées sRie0 INGLE ATES SEEK BEING DONE FROM 
ies :RY=1 INDICATES erei BEING DONE FROM 
“(ez ‘INNER CYL TO 0. THIS ROUTINE POSITIONS 
E33 THE HEADS ON 'INADR’ CYL IF R4=1 
| 1635 ooeHse 0057 SBR1: TST RY 
| iPS O0S4E4 ehh BEQ 1$ 
| 1637 006456 013777 001260 173000 MOV TNADR JRKDA 
| 4636 ODE4E4 012777 OO0011 172764 MOV #11, dRKCS 
«1635 O0E4 Oates TST. RWS 
eae 506474 18: PC 
le42 : THIS ROUTINE IS USED IN THIS TEST 
1643 ‘ONLY. RE : 12 FROM CYLINDER 
pote + WHOSE DRE N N IT CHECKS 
| [eas !IF THE EXPECTED HEADER IS R 


ECEIVED. 
LE4E ;IF IT IS NOT, INDX3 IS INCREMENTED INDICATING 
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1-D2RKL-0 MACY11 27(1006) O4-OCT-76 14: PAGE 32 
i 31-AUG-76 15:35 T4 SEEK PATTERNS: O-312-0-31l-.. 





SEQ 0046 
| age? ;THE ERROR 
1648 
| 1648 me oe f em eke SPR2: Mov 14 Rp a“ 
tee? eld Mey BQUTBUF ;READ 12 HORS 
| Ee Hee Bie [ne my Reeeee fakes fe ten 
i655 E48 ft A7srce 172726 MOV RBtde SeKCS ?RD F mg 
Less ties id4421 CON. RDY 
igs? 006532 004737 007204 JSR PC, CHKHDRS :GO CHECK IF CORRECT HEADERS WERE READ 
1653 006536 000207 RTS PC EXIT 
igel O06S4O 004737 OIE7IC EXT4: JSR PC, ABRT 
| 1662  LSRSESERELELRALA ELA SEAS SEAS SAASRSARALASAAARARLRA FAL LAS SLERSLL LE 
ise4 teTEST 5 PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS 
| 16s THIS TEST PERF ORNs A CONVERGING-DIVERGING SEEK PATTERN 
be : #0- Ng ime feo st -3- ‘ee ------- —2 §-2-311-1-31 
' Tees #THE CYLINDER OER ABORE PeeSeS BETH BETHEEN WHICH HE IMPLIED SEEK 1S 
Pcs’ Sm : ‘ TaInED I “OUT TF IN’ QecURS 
1671 #AN ERROR IS REPORTED A RETRY IS DONE. ON READ NG_INCORREC 
| E95 SET A Te ee eRe ae are TRRORRE CT, TT COULD Mean THAT THE FEROS 
tS + ebbLo Not postt ion CORRECTLY. tare BE CONFIEMED TF TN 
1E75 ; #PREV IOUS TESTS BAO HEADERS WERE NOT RECIEVED FROM THE SAME 
«676 LINOER F THAT LINDER GB VE BAD HEADERS IN ALL THE PREVIOUS 
| 41677 ietests HE phogl En Suto DIFFERENT. 
1676 san] MUM 12 ERRORS OF ANY KIND ARE ALLOWED. 
| 4679 ORE THAN 12 ERRORS OCCUR THE TEST IS ABORTED. 
1680 CT A RR A ce BO RB BB Bs a 
1681 OO&S44 900004 +éT5: SCOPE 
1 OOES4—e 1O4415 | CON. N. RESET ;60,D0 CONTROL RESET 
| ees 006550 104416 v. :G0'DO DRIVE RESET 
| 1685 oODesS2 oNs004 CLR a4 ;(R4)=0 SEEKING FROM 'OUTADR’ TO *INADR" 
168 :(R4)=1 SEEKING FROM 'INADR’ TO ’OUTADR’ 
| 1668 DOESS4 012737 177466 001476 MOV #-312, INDX2 ;SET COUNT FOR DOING 312 TIMES 
1683 OO6562 012700 177764 MOV $- 
1690 DOESEE pi 37 001504 MOV RO,ERCNTL sALLOW ONLY 12 ERRORS 
1631 10037 001506 MOV RO’ ERCNTe 
1693 006576 005037 oD1z¢e2 CLR OUTADR sINITIALIZE "OQUTADR’ TO 9 
| 1634 O0&602 012737 O14S00 o01260 MOV #14S00,INAODR § :INITIALIZE *INADR’ TO le 
| 1ES— 006610 905704 1S: TST RY GOING IN OR 
ieee Spee TS eae 1 ae Fear R Nee Abe R tr FOR GOING IN 
as ) 
ibs 58 0 be70e ates BIS BRT vaO RS PERM Sisk yer FBR INNER CYLINDER 
1700 006624 0004 BR 3$ 
1702 O0&626 013705 o0lz26e 23: MOV OUTADR, RS ;SET CYL ADRES BITS FOR GOING OUT 
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MAINDEC-11-DZRKL-0 MACY11 27(1006) _04-OCT- 33 | 
OZRKLO.P11 31-AUG-76 15: rf Perr danne SONVE ING-DIVERGING (IMPLIED) SEEKS SEG 0049 
1793 006632 053705 901230 prs DRIVAD, RS :FORM DISK ADRES FOR GOING OUT 

7 4 ; R TRY ; ALLOW TR 

He BRE GEER QAR nese HE ETM RRS 

1707 OO6ESO 000404 9R 7$ 

1708 OEEEE 104415 S$: CON. RESET 

716 Boece Aoaas 007150 JSR  PC,SBR3 G0 REPOSITION HEADS 

17] 777 4 172570 78: V 14, aRKuC HORS FROM THIS CYLINDER 
i? BREESE iezee yeece4 Hoy +PEOR SHI’ crc, SEC 0 

1714 OO&E74 012777 O26362 172560 MOV Tae aR INTO THIS BUS ADRES 

i7is 006702 612737 806652 601110 MOV t8. ERR :SET RETURN ADRES FOR LOOPING ON ERROR 
172 006710 012777 O02005 172540 MOV #2005, IRKCS READ FORMAT, GO 

i733 OO6716 104421 CON. RDY WAIT FOR CONTRL RDY 

1721 006720 032777 O01000 172524 BIT #1000, JRKDS ;SIN? 

1722 O0e726 001443 BEQ 93 :NO, BRANCH 

1723 006730 017737 172520 OOL1I&& MOV JRKER, SRE ;SAVE RKER 

1724 006736 017737 172510 9001170 MOV BBKDS SRE :SAVE RKDS 

1725 006744 013737 Ool252 9001172 MOV RYL.SREGY § :GET RETRY # 

1726 006752 737 o00002 001172 ADD BS nets 

172? 006760 004737 Ol6244 ISR PC'ERR2 SE, “Wes rd Pe *N WHICH 

1729 006764 104420 oO01G02 TYPMSG ,MSG1 : TYPE ‘SIN’ 

1730 006770 104014 ERROR {4 

1731 ;*SIN’ OCCURRED ON DOING IMPLIED 
173 ; SEEK FROM "CYLA’ TO 'CYLB’ CIN 
1734 006772 005737 o0l252 TST RETRY tHONE 2 FRIES? 

1735 006776 001403 BEQ &$ :YES, BRANCH 

1738 007000 005237 oo1ese INC RETRY! INO, RETRY 

1737 007004 ooc7ee BR c§ 

1738 007006 10441 6S: CON. RESET 

1738 907010 104416 DRV. RESET 

ie 

174 le 7 901504 NC RCNTI Low SS THAN 12 ERORS OF THE 
tous SESRtE BOFESS ue xs SABOVE KIND 

1744 IF MORE SKIP THIS TEST 

1 5 sBIN OCCURED WHEN GOING TO CYL (IN 
1 A DRVE RESET HAS BEEN BONE , 
174? a NOM TRY, POSITIONING HEADS ON 

1748 007020 o10577 172440 MOV RS, IRKDA ISET CYL ADRES 

007024 012777 O00011 172424 MOV #11, dRKCS : SEEK, GO 

1761 007032 104422 TST. RWS 

1752 007034 00424 BR 11S 

1753 IE NO SIN ENTER HERE 

i754 007036 004737 007204 QS: JSR PC, CHKHDRS :GO CHECK fF CORRECT HEADERS WERE READ 
175 oO07042 012737 OobE4e 001110 MOV 84S $LPERR ;SET LUP_ADDRES 

1757 007 737 0015 TST INDX 


050 37 :WAS THERE A BAD HOR? 
i 7054 1914 BEG 11$ :NO, BRANCH 


cr 


LOY 


MAINDEC-11-D2RKL-0 MACY11 27(1006) O4-OCT-76 14:26 PAGE 34 
DZRKLD.P11 31-AuUG-76 18:36 a PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS SEQ o0So 
1759 007056 104020 ERROR 20 :WRONG HEADERS WERE READ FROM 
tee gh teDent) Pron a ad *CYLB" 
176¢ 997060 37 901254 INC RETRY2 
0&4 737 000002 ool1es4 CMP #2, RETRY2 
1784 007072 001263 BNE ug a TRY 2ND TIME 
1765 zo 27 001506 INC ERCNT :ALLOW ONLY 12 ERRORS 
1765 71 13? 007276 his xTS ;IF MORE, EXIT THIS TEST 
1769 007108 905704 118: TST RY ;GOING WHICH WAY”? 
1770 007110 O01006 BNE 12s :*INADR’ TO *OUTADR’, BRANCH 
ee 007112 oos204 INC RY tate THAT IT TIME GOING 
1528 $EROICATE THAT IK] TT 
1774 007114 062737 000040 O012¢e2 ADD #40, OUTADR s INCREMENT RYCLINDER ADRES 
1775 007122 000137 O06610 IMP 1$ :GO BAK & DO IMPLIED SEEK 
ire ?FROM ’INADR’ TO ’OUTADR’ 
1778 007126 ooso004 128: CLR RY . i INDICATE THAT NXT, TINE GOING 
1780 007130 162737 cOD04O 001260 Sup #40, INADR [Epi CYLINDER ADRES 
178i 907136 605237 001476 IN INDK2 p E aL Me spapcenene 
Pes 007142 001457 BEQ TST SEEK Tris 
1785 007144 000137 o06610 IMP iS IE NOT, GO BAK & DO IMPLIED 
178 EEK FROM ’OUTADR’ TO  TREGR’ 
i788 ) ;THIS SUBROUTINE IS ENTERED AFTER A ‘SIN’ ERROR OCCURED ON GOING FROM 
1789 seta TO SoBe Fis AS INDICATED ai THE ERROR MESSAGE. BE FORE RETRYING THE 
1730 | ini 5 EVE To SITIONED BACK TO 'CYLA'. NOTE THAT A DRIVE RESET 
17 Aico. ott 3 ‘ S BEING DONE FROM ’OUTADR’ CYLINDER TO ‘INADR’ CYLINDER. 
ies jeMsl, ie mi "See ‘ie Is SENG pone F M PINAR” TO ‘outAOR 
1794 007150 905704 WHICH WAY? 
1795 007152 OO1404 — if on *OUTADR’ TO 'INADR’, BRANCH. 
17% 07154 013777 cOle60 172302 ay tRaor, JRKDA 
1737 007162 ea BR 2 
179@ po7ies 001262 172272 1S: MOV OUTADR JRKDA 
1799 907 e772 00001! 172256 2$: MOV aa , ORKCS 
iB Gare cz RTS PC 
i 
te5e Hote ouTINE age ck THAT THE RS READ PREVIOUS 
iene dec 3 Teed: ERS AND THE SEC Ton #°S FROM ri a age WER “Reap 
i808 f ONTR: FROM WHERE HEADERS WERE 
ies aie "8 OE ORE Epo BEAD BRE VAOUEL Y GRE OF ORES oFeRtiNG *OUTBUF’ . 
1812 50h EXIT lf THE HEADERS WERE CORRECT 
1813 : INDX3=1 THE HEADERS WERE INCORRECT 
1614 ‘BUFR - et oR #’S GIVING BAD HEADRERS ARE STORED STARTING AT BUFR’. 
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04-OCT-76 PAGE 35 
TS PERFORM CONVERGING-DIVERGING (IMPLIED) SEEKS 


ia es BAR HEADERS FOR ft oe TH neeey a a BRE 8 OEE STARTING ‘BUFR1’. 


14:26 


MO4 






a ae au UF Ri NITIZCIZE BTR 19 tone RE 
f t I 
NOY UPR Re INITHACESE PTR To SECTOR 
MOV seurel s R3 sINTTALIZE BT ub BAD oa TABL 
MOV rs 
BIC aitbs 7,$GDADR ;GET EXPCTD HEADER 
CLR :CLR FLG INDICATING BAC HORS 
$$: CMP $GDADR, (R1) :HEADER OK? 
BEQ 10$ : YES, BRANCH 
MOY (RL) (R3)+ :SAVE BAD HOR 
MOV , (R2)+ :SAVE BAD SECTR # 
MOV Ss7PPFP. 10 ;PUT TERMINATR ON SECTR TABLE 
INC INDX3 SET Fic Pye fe axe BAD HOR 
10$: TST (R1)+ Teen! T HOR 
INC RO . 
CMP #14,RO : 
BNE 33 :IF NOT, LUP BAK 
RTS PC 


ExTS: JSR PC, ABRT 













mene Le eee 
+ ss "et Tee) ae ertten BT ARE TIER ON_THE ENTIRE DISK. 768 
TA TIME. TWO 768 WORDS LONG 
+ BUFFERS “Wie BEE TEEN tse a “THIS. TEST. WHILE ONE BUFFER I 
;#USED T ITE_ON ISK, THE OTHER BUFFER GETS FILLED UP WITH 
;*PATTERNS TO BE USED NEXT!’ THIS OVERLAPPING IS DONE TO SAVE TIME. 


; THREE POT TERN Gere Doon SUS-ROUTINGS 
PT 2. PTGEN 3. PTGE 


:# . 

j #THESE THREE ROUTINES ARE CALLED IN A CYCLIC ORDER: 

: PTGENO-PTGEN1-PTGENC-PTGEN3-PTGEN BP TOE] . oo noens 
IS MAINTAINED IN WRITING BLOCKS (EACH 

3 SECTORS LONG) USING ONE OF THE FOUR PATTERN GENERATORS: 


s#CYL SECTORS CYL SECTORS CYL SECTORS CYL SECTORS 
:%# SUR ROUTINE SUR ROUTINE SUR ROUTINE SUR BUTI 
'#0 0 O-2 PTGENO O O 6-10 PTGENI O O 3-5 PTGENe O O 11-13 PT 
'* 0 1 O-2 PTGENO 1 6-10 PTGEN] O 1 3-5 PTGENS O 1 11-13 PTGEN3 
71 0 PTGENG 1 0 6-10 PT NI 1 0 3-5 PTGENS | O 11-13 PIGENS 
‘#1 1 Q- GEN 1 6-10 PT i 1 3-5 PTGEND 1 b i-13 PTGEN 
ite 0 O-2 PTGENO 0 6-10 PTCENI 6 3-5 PTGENS 2 O 11-13 PTGENS 
# ’ STAGGERING (OF SECTORS T TTEN) IS 


NE TO 
;#SAVE ONE REV (4OMS) EVERY TIME z BLOCK (3 SECTORS) IS iRITTEN. 
:*#IF YOU WANT TO USE BUFFERS STARTING AT SOME OTHER MEMORY ADDRESS 
;*#MAKE THE FOLLOWING CHANGES: 
;#CHANGE "PBUFO’ TO STARTING ADDRESS OF THE FIRST 768 WORDS LONG BUFFER. 
;*CHANGE "PBUFI’ TO STARTING ADDRESS OF SECOND 768 WORDS LONG BUFFER. 
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1871 
l87e 
1873 
1s 
1875 
187& 
1877 


PUREE SENT oes 


eis erincisch ait 


ONO 0OO0OO0O0O0OWW 
0 0-2 0 
NOW £TeO 


tore 


iOrofore 


» 


eo +0 -0-+0-+ <6 -6-+o- + b= 0 +> <0 b-- & + © 2 0 -—  + 0 2 hb = BB -* b= 0-2 Bh b+ 


uo 
ft 
ome 
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001432 
001424 


001430 


001434 
001412 
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3$: 


es: 


138: 


:#IF YOU WANT TO WRITE YOUR OWN PATTERNS USING Ca tert antares *PTGENO’ 
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PAGE 36 
WRITE PATTERNS ON THE DISK 


14:26 


;#CHANGE *PTRNO1’ AND 'PTRNO2’ TO THE PATTERNS YOU WAN 


-#T0 WR 
: ¥LOCAT 
seat 


OCATION *PAT3’ 10 *PTCEND’ 


i THE om TWO _(OR_ ONE) ga ON THE OS DISK CHANGE 

opreeae THE STARTING ADDRESS OF P 
PTGENO’ THE ar eat ie ADDRES OF: PAT-GENERATOR 0 
THE STARTING ADDRESS OF PAT-GENERATOR 0 
_speesslasansesnvansanoansnennnasennesntataanaantnanesitaneenss 


+75 


ON *PATI’ T 
ION *PATe’ T 


#-14, ERCNT1 
#-14° ERCNTS 
#-626. INDXI 
BUFLGO 
BUFLG1 


DRIVAD, DSKADR 
#PATO, PRSPAT 


TBUF 
Pease At PGSUBR 
PC, JPGSUBR 
RS 
BUFLGO 
3 
PBUF 1 , BUSADR 
#8177, BUFLG! 


13$ 
PBUFO, BUSADR 


#81T7,BUFLGO 


BUS 
#-1400' SRKWC 
#3, 2RKCS 


PRSPAT , NXTPAT 
PRSPAT, PATS 


enna, »NXTPAT 
; pias 


siieer E  Bgsuar 


; SET COUNT FOR 313X2 TRACKS 
LAG FOR BUFR 


: SK 
T DISK ADRES 

t INITIALIZE bre TO THE FIRST 

:PATRN GENERA 


2E "SOUT . 4 BLOCKS 
CH Oe USE 


_ EER & 


;USE *IOBUFO’ FOR TRANSFER 
;O0R THE ONE INDICATED BY THE USER 


5 INDICATE THAT *IOBUFO’ WILL 
B USED FOR WRTING ON DISK 


;SET RKDA 


sWALTE THE 4 SECTORS ON 


;0IS 
; WHILE ne PATRNS R_BEING WRITTEN 
$90 ate 1 ie NXT PATRNS 


gee SEERA TING a) h IN THIS 
Y “PATO"-"PAT1"~" 


369 GENERATE THESE PATRNS. 
(3 X 400) WORDS 


PaT2"—"eQT3"-"PaTo"- 


SEG 00S2 


He 
fa 


UR PERSE Pe ERAN ans cw! 


Be 


BS 


ab 


PRR hal side 


ey wed ee Se ee ee ed ed ed ed ed ed ed ed ed ed ed dd dd ed ed ed ed ed ed ed ed ed ed ed ed ed ed ed ed ee ee ed ed ed ed ed ed ed ee ee ee et 


EERE 


. 
. 
coe 
t 


007774 


ia 


38 
ak 


at 


a ae 


0057 
190007 
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140000 
016106 


001504 


010356 
001000 


016106 


001506 
010386 


003410 
001410 


001410 


171704 


L7lb%e 


001424 


001432 


001474 


001432 
001432 


001432 


04-OCT-76 14:26 PAGE 37 
WRITE PRT TERNS ON THE DISK 
gt 11 * por tein 
JSR PC, GTYRG 
ERROR 1 
CON. RESE 
INC ERCNT]1 
BNE 2$ 
IMP xT6 

128: if ag 3, aRKOS 
JSR PC, GTYRG 
ERROR 22 
CON. RESET 
DRV.RESE 
ans ponte 
IMP EXTé 
7$ TSTs SUFLGO 
BPL ct 
CLR BUFLGO 
BR 3 
es: CLR BUFLG1 
3$: MOV NXTPAT, PRSPAT 
mov, B58 
MOVE SECPTR(RO) RO 
108: ate 817,0SK 
INC ‘ 
oMP e4,R5 
BNE 2s 
BIT ot INDX! 
BEG 
as es 
IMP TST7 
BIC #20, OSKADR 
ADO 840; DSKADR 
IMP 1s 
118: an NOX1 
wit Sg .DEKAOR 


ies ret BUFFERS SEL 





RROR? 
KCS,ER,OS,DA 


‘Get 
ERE OR 7 ON DOING WRITE 
: ALLOW 12 ERRORS AT MOST 
iif MORE, EXIT 

;SIN, ON DOING WRITE? 
;SIN ERROR ON DOING WRITE 
;ALLOW 12 ERRORS AT MOST 


FIGURE or WHICH BUFFER IS 
AVAIL on 
iW PRE VIOUS DSK-WRITE DONE 


” BUFR 0? 
i co FL FLAG INDICATING IT’S 
;CLR uate INDICATING BUFR 

:1S Al E NOW 

i Becpat® 5. Pore WILL BE USED 
ON NEXT WRIT 

iF ORM r s TO BE USED NXT TIME 
‘oan SECTOR BITS FROM DSK-ADRES 


OSK- S 
:DONE WITH le SECTRS (3 BLOCKS)” 


ON THIS SURFACE? IF NOT, GO 
;00_NX pect 

‘WHICH § WAS § Dore, 0 OR 17 
-IF O BO” 

:COUNT 8 OF TRACKS 


sEXIT IF DONE 
3;G0 TO SUR 0, NEXT CYLINDER 


De 


UR i 
+66, WRITE PATSNS ON SURFACE 1 


OUT WHICH FER TELE IOBUF1) OR ONE OF 
PAT HEENE” Fue PMEN TT SET INDICATING THAT 
sELFEER He Ane 70°Be at tHe SPERFING ADDRESS OF THe 
s BUFFER STORE hee 
GETBUF: TST t ioe ;BUFR SAIL ABLE FOR USE? 
BPL 1 ; YES, 
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PAGE 38 
WRITE PATTERNS ON THE DISK 


111548 Gly R 1. INOICATE $0. 
REISER Mee RMR iol LA, 
18: B75 Ane BUFLGO  ;INDICATED, USING SUF 0 

MOV PBUFO, BUFNO :SAVE STARTING ADRES OF BUFR O 
od PC : RETURN 

ieTafe Routt vauhine Te A 768 (3X256) WORDS LONG 

i+ riser R CONTAIN NG THE eae aie 

- ¢ 

Geese (COMPLEMENT OF ABOVE) 


STH BLOCK Sree ie 3 t1s COMPLEMENT) 


:#MAKING THE CHANGES IN THE 2 LOCATIONS SHOWN 


PTGENO: MOV BUFNO, R -GET STARTING 8 ADRES OF BUFF 
MOV PTRNO! g :GET PATRN TO BE GENERATED 
MOV 8-400, Re [IN THE FIRST 400 WORD BLOCK 
18: MOV Ri, (RO)+ sGENERATE THE EIRST BLOCK 
ine Re WITH 'PATOL’ PA 
1 FALL DONE? 
NT ates NT *PATOL’ PATAN 
ws: FET Elceoe §«—HSBERRIEg "STB OF 
INC a :*BATOL'S EE OUPrEMENT PATRN 
BNE 25 :ALL DONE? 
MOV #-400,R2 
MOV PTRNOS, RA) :GET T PRTRN 19 BE GENERATED 
: JOR RAT OCK USING 
3$ MOV R1,(RO)¢ SpheRaTE a 
INC R2 
BNE 3$ ;ALL DONE? 
RTS PC ; RETURN 
PTRNOL: 2 ; CHANGE THESE LOCATIONS IF 
PTRNGS: SiOdEt OU MENT Ny STHER PATTERNS 


‘State ROUTINE GENERATES A 768 (3X256) WORDS 
:#LONG BUFFER CONTAINING THE FOLLOWING PATTERNS: 


;#FIRST BLOCK-256 WORDS 00000] FILL 1°S 
3# pep 500003 
* 


, 177777 

#SECO OCK 177776 FILL O'S 
s45E ND BL 1? 

,% : 

:# do0000 


;#THIRO BLOCK 00000: FLOAT Al 





| 
| 
| 
| 
| 


tii 
ea Fe 


§ 


= | 


oo 
£ 


 ] 


iiss 


y 


€ 


a eo 


Soe rnr Ree 


OHOV00000 OHOOHOOOON ONOOOOOVOOO00 


BESPEEpE SppRpppeEEp 
NAIPTREE BRECSRES ES 


iS 


> +--+ 6-6-6 +6 + o-8-< O- 0 -0 +0 +6 oo +8 > O +0 +0 -+6-+ 0+ +0-+8--8 +8 +o + 


oc 
fororo 
a rs 
£O 


AN) 


ius 


eter 
ST 


DOS 


04-OCT-75 14:26 PAGE 39 

Té WRITE PATTERNS ON THE DISK SES Coss 
:*# 000020 

3% 3 

:¢ 100060 


;#°BUFNO’ CONTAINS THE STARTING ADDRESS OF THE 
; #BUFFER. 


PTGENI: MOV #1,R3 s INITIALIZE PATRNS 

MOV #177776, R4 
Vv BUFNO, RO suite" STARTING ADRES OF BUFR 
v 8-20, Re ;SET 
i$: MOV R3,R} 3557 Coun PATRN 
: MOV Ri) (RO)+ GENERATE THE FIRST 

SEC *BLOCK USING “FILL 1°S” 
me OH 
BC 
INC Re 
BNE 1$ sALL DONE? 
MOV gf Re 

a ee 

: + w 

go frie steels 
gc 4§ 
BNE S DONE? 
MOV 8-20, R2 

S$: MOV =—s-RG, RI SPATiAc ice PATRN : 

6S: MOV RI’ (ROJ+ :GENERATE THE 3RD BLOCK 
Bet Ri sUSING “FLOAT A 1” 
INC Re 
moO pe 
T C TURN 


liom meena eames 


" saFIRST BLOCK-256 WORDS 000000 COUNT PATRN-LOWER BYTE 


s#SECOND BLOCK 000000 COUNT PATRN-HIGHER BYTE 

; on “ 000400 0-377 

= 001000 

:# i77400 

;#THIRD BLOCK 000000 COUNT OT PATA MIGHER 8 LOWER BYTE 


i# O00401 0-377 





| 
| 
| 
| 
| 
























MAINDEC-11-D2RKL-D MACYI1 27(1006) O4-OCT-76 14:26 PAGE 4 EUS ; 
DZRKLD.PL1 3i-AUG-"6 15:35 Té WRITE PATTERNS on THE OISK SEG O0Sé 
203s :# 177777 
ah 3#°BUFNO’ CONTAINS THE STARTING ADORESS OF THE SUFFER. 
Be 010216 005001 PTGENe: CLR R1 ; INITIALIZE PATRN 


13700 OOl446 MOV BUFNO, RO 

10120 tS: MOV Ri, (RO)+ : GENERATE 1ST BLOCK USING 
0} INCB ORI :USING "COUNT UP LOWER BYTE’ 

001375 SNE 1§ : DONE? 


- 
a — 


gogo: CLR RI 
l ig¢ 2s: MOV RI. (RO)+ GENERATE 2ND BLOCK 


e 
~ 


OOOOOOOONO OMo0O0N 


oc ROD #400, Ri :USING "COUNT UP HIGHER SYTE’ 
| 103374 acc 2 : DONE? 
| Bretoe 38 iy Ri (RO) GENERATE 3R0 BL cK USING 
4 + Ss 
1 000401 ADD #401,R1 UP HIGHE vais BYTE’ 
| 103374 BCC 3$ Keg: BONE? 
000207 RTS PC : RETURN 


iF rae 
THIS ROUTINE GENERATES A 768 woes LONG 
t SOUFFER CONTAINING THE FOLLONING BRTTERNG 


;#FIRST BLOCK OF 256 WORDS: 167356 (COMPLEMENT OF 010421) 


;*#SECOND BLOCK 177776 FLOAT AO 

- 177775 

:# 077777 

;®THIRD BLOCK 000377 COUNT UP HIGHER BYTE 0-377 
;* 000776 COUNT DOWN LOWER BYTE 377-0 
;* : 

;* 177400 

;#'BUFNO’ CONTAINS THE STARTING ADDRESS OF THE BUFFER. 


FREES SOR RR OR BR RP oe owe Sui ctor ODw GEM Lote © 


rorurerororororororurunororurororororrororororororofrorofrororurororornorrururururorororororrrrr 
ee en he he ee ae Bae Be Be ee Bt Be Bae Bae Be he Bt Oe Oe be 8 oe Be Ohh be he Oe Be ht ho ee he Oe he Be 


010260 013700 o01446 PTGENS: MOV BUFNO, RO 
010264 612702 177400 MOV 8-400. Re 
010270 013701 O101le MOV PTRNO2, RL ;GET PATTERN 
ders 19 COM RI “COMPLEMENT 'PATO2’ PATRN 
i 101 48: MOV RI, (RO)+ :GENERATE 1ST BLOCK 
10300 052 INC Re 
1030e 0013 4§ sALL DONE? 
1 12702 177760 Moy 8-20, R2 satdsies 
a an 
10312 0612701 177776 MOV 8177776,R1 
47 010316 010120 Bs: MOV R1, (RO)+ 
ee Bou mH 
so 010324 02 Pre Re 


Fa 


o* 


; 


Coto eur etoroe 


ao 
~ 


rorororororurorurorrururorunrorurororororororrrororuru rururorururorounororronrurorurufrururururo 
ee ee he he Be a he ee Be Be 8 Oe hn ht ht be Be Be Be be Oe Be 8 Oe he Oe 8 he Be b= he Be hh he Bee 


STEN TORS SUB SR ete TUBS Ba Aer sities Cat Panera etka at bat At 


fore 


: 


* 


U 


ror 
ron 


C-11-D2RKL-D 
SI-Rus-76 18:3 


001370 


FOS 
OH-OCT-75, 14:26 


PAGE 4 
WRITE PATTERNS oN THE OISK 


BNE 7$ :ALL DONE? 
:3RD BLOCK 
MOV 4377.1 
MOV Ri,Re sGENERATE 3RD BLOCK USING 
93: MOV RI’ (RO)+ :*COUNT DOWN LOWER BYTE’ 
ao Re, :*COUNT UP HIGHER BYTE’ 
v 8-1, 


RE OBR :fibt, BONE? 


;SECTOR POINTER TABLE. DATA TRANSFERS ARE DONE IN BLOCKS (3 SECTORS 


-ERCH) IN THE CYCLIC ORDER: O-2, 6-10, 3-5, 11-13, 0-2, AND SO ON. 
SECPTR: .BYTE 6 
YTE 
vTe - i 
BYTE 6 


ExTé: JSR PC ,ASRT 


 EEEREFEREEESEEEAELSALES ELLER ALLELE ELLA ELLER ERE AESESEESER ELE SS 
SATEST 7 READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 


;###eTEST & (WRITING PATTERNS ON DISK) SHOULD BE DONE BEFORE DOING##s# 
:####THIS TEST. ##e# 


;#IN THIS TEST THE PATTERNS ag WERE ert BEFORE (IN THE 
: #PRE VIOUS TEST) READ BACK ae Al | WARE CO 
;*4WHILE THE SOFT Coren act I get PLACE, AN agVERLAPPING 
#’WRITE CHECK’ IS DONE FOR THE SAME BLOCK. a 
BACK OF EACH BLOCK (4 SECTORS) IS pote IN 

R_AS DESCRIBED IN THE BEGINNING OF Previous TEST. 
APPING OPERATIONS STAGGERING OF BLOCKS ARE DONE IN 


: #OVERL 
:#A SIMILIAR MANNER. 
:*THE FOLLOWING IS A DESCRIPTION OF HOW ERRORS ARE HANDLED. 
:#IF A 'SIN’ OR HE’ OCCURS IT IS REPORTED AND THAT BLOCK 
#15 SKIPPED. | ut THIS STAGE OF TESTING THESE ERRORS SHOULD NOT 
IF A CHECKSUM RROR OCCURS CONTROL Js TRANSFERRED TO 
!#°CSERROR’. FIRST THE CSE {S REPOR ED. THE SECTOR GIVING 
:#CSE IS READ AGAIN. IN ALL 3 TRIES, BRE DONE. IF STILL 
:#THE ERROR PRESISTS THAT SECTOR IS ABORTED AND THE REST 
:#0F THE SECTORS ARE READ AND ChECKED FOR CSE. 

S CSE, REPORTING AND RETRIES 


S OCAIN SORE OTHER SECTOR GIVE 
es 


is NeXT SOF HARE COMP OMPARISON 1S DONE OF THE DATA THAT HAS 


Se ier 
ee OR/S RA. REPORTE D. BL bck THE Beck " a AGAIN. IN ALL 
!#THREE TRIES ARE DONE. 

: #WHILE THE DATA COMPAR ISON (SOFTWARE) 8 GOING ON THE ‘WRITE 

; #CHE CK K’ IS ALSO fy PROGRESS. IF A WRITE CHECK ERROR OCCURS THE 


;#CONTROL IS TRANSFERRED TO iyobROR’ WRITE CHECK OF THE SECTOR 
T#THAT GAVE WCE IS DONE AGAIN. IN ALL THREE TRIES ARE DONE. 


ee oe a + 


i 
4 
a) 


11-DZ8KL-D MACY11 27( 1006) Ban OCT-76 14:26 
' 16:38 


© 
t 
m 
“ ° 
we 
Crs 
+e 
to 
. 
P 
c 
' 
) 
o 


;#A BLOCK GAVE WCE’ 


fururufufure 
tahue- te 


: #WILL PROVIDE 3 DEEP 


hone 
e- 
£ 


PAGE 42 
READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 
;#NOTE THAT EVERY WCE IS REPORTED. IF THE 4 TOR 
2 al EPS at had 


4 WILL BE R ED AND 


;#DEPENDING ON THE NATURE 4 Pps PROBLEM, THE ABOVE ERRORS 
+x AN SEEUR aN. IN ANY Shoe Be Cae T 


NDED THAT ALL 


ARREPULLY rn a. ED AND EXAMINED. IT 
NSIGHT INTO THE PROBLE 


M. 
EI a Md ER db a ll is Bn Be,” 
15 O10362 900004 41>. SCOPE 
2216 O10364 012737 177764 991510 MOV 8-14 ERCNTS sALLOM 2 ERRORS aT rite te" 
e217 310372 gies? l 35) le MOV #-5.£ ERRORS AT THE MOS 
ne Ree ieee ie Ya eee Os a 
5515 bi Rae Bigs 177764 atte NOY 8-14 ERCNT :ALLOU ie ERRORS AT TT MOST 
e221 O104ee 016737 17ers oo152e Nov #-36 ERCNTE 0 ERRORS AT THE MOST 
; Bibtge BAESES Att CLR see, iF "GRUNT FOR FO bee ETS aN @ TRACK 
2225 O10442 012737 001414 o014e4 MOV BPATO,PRSPAT ; INITLZE PTR TO PATRN GENRTR 
222 010450 013737 001230 001450 MOV DRIVAD,ADRES § ;INITLZE DRV#,ADRES 
2228 
«22S O1O4SE 005037 901504 BEGIN: CLR RONT1 :IF > 0, MEANS THAT RETRIES 
| 2230 O10M62 005037 001506 ¢LR RCNTe :DONE AFTER CSE OR CSE CHKD 
«B31 O1O4GE «012737 177775 01252 MOV $-3, RETRY! :RETRY COUNT F 
| Bese O10474 012737 177776 001254 MOV 8-2 RETRY2 :RETRY COUNT FOR SFTWRE MISCMP’N 
cez3 O10so2 612737 900003 O01256 MOY #3, RETRY :RETRY COUNT FOR WCE 
Zess 010510 O1 901450 o01440 MOV ADRES,WOSKAD § ;DISK_ ADRES TO URT CHK WITH 
ce36 010516 613737 O01406 OOl442 MOV PBUFI;WBUSAD  ;USE THIS BUFR 1 TO WRT CHK 
ez :OR THE BUFR INDICATED BY THE USER 
ese 010524 012737 176400 OO1444 MOV 8-1400,WWROCN WRT CHK 1 BLOCK=3SECS=1400 WRDS 
2240 0105 137 1450 001432 READ: MOV RORES,DSKADR_  ;DISK ADRES TO READ FROM 
2241 O105 127 seiatiae 001436 MOV -1500 WROCNT 31 BLOCK = 3, SECTORS = 1400 WRDS 
2242 O1054€ 013737 001404 001434 MOV 0, BUSADR sUSE *TOBUFO’ TO READ INTO 
| ee43 :OR THE BUFR INDICATED BY THE USER 
Sele o10ss4 900404 as RDAGAIN 
| B24? O105Se 1o4415 LUPSIN: CON. RESET 
2248 O10560 iO441é ORV. RESET 
2248 0] 00040 SR 
aa O10Se4 104415 LUPHE: CON. RESET 
2253 OL0S6E 013777 001432 170670 RDAGAIN: MOV DSKADR, aRKDR “READ FROM THIS DSK-ADRES 
2254 O10574 013777 OO1436 170656 MOV WROCNT, JRKWC THIS § s OF WORDS 
ee 010602 013777 601434 i70¢&e MOV BUSADR; JRKBA =; INTO THIS BUFR 
2257 O10610 012777 O0O40S 170640 MOV 8405, IRKCS ;READ, SSE, GO 
se > 
2260 O10616 013737 0014 14 MOV PBUF 1, BUFNO :SET UP STARTING ADRES 
e261 Bibess 5353) 170874 14 NOV SBRSPAT- PGSUBR 
ete 010632 004777 170572 JSR PC, SPGSUBR :G0 GENERATE A BUFFER 
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BRASS aareeen one 
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ror 
pietetedets 
Seepeecesse 
BoRReee 
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ruorororororororororunre 

LOGI GIGI GI CU CIGIGS 
eT ey ee es et 

TcONMus ture © 


001514 


012114 
011600 


001506 
000003 


901440 
O01444 


170610 


001110 


170540 


001110 


170462 
001110 
001202 
001202 


001256 


170400 
170366 


WCAGAIN: MOV 
MOV 


04-OCT-76 14:26 PAGE 4 
? READ, SOFTWARE COMPARE, 


CON. RDY 


MOV SLUPHE , SLPERR 
PC, GETINE 


JSR . 
ERROR gs 
C 

foe 
EXT? 


IMP FINISH 
BIT #8173, aRKDS 
BEG NOSIN 


mere 


EX 
JMP FINISH 
TST ERCNT1 
BNE WRT CHK 
INC ERCNT1 


BIT #8171, ORKER 
BEQ WRT CHK 
MOV #8EGIN, SLPERR 


ISR PC GETING 
MOV RETRY1, SREGLO 
ADD 84 
ERROR 24 
INC ERCNTS 
BNE 1$ 
IMP EXT? 
IMP CSEROR 
: CLR ERCNT2 
CMP 83, RETRY 
BNE SFTCMP 


BIT #8IT14, ARKCS 
NOHE 


,SRECIO 


WOSKAD, JRKDA 
WHWROCN, ARKWC 


WRITE CHECK OF THE PATTERNS 


:0F 1400 W USING THIS 
; PATRN SENRATE 


s DONE WITH PATRN GENRTNG, 
WAIT FOR CNT ROY TO SET 
: (FROM PREVIOUS READ) 


;CNT ROY SET 
HARD ERROR? 


;HARD ERROR 

s;ALLOW 12 ERRORS AT MOST 
;IF MORE, EXIT 

SIN SET? 


:SIN ON READ 


;ALLOW S ERRORS AT MOST 
;IF MORE, EXIT 


;CHECKING CSE FOR 1ST TIME 


:NO, BRANCH 
SINDICATE THAT CSE HAS BEEN 
:CHECKED ONCE 


;CHECK SUM EROR? 


;GET THE RETRY & 
;SAVE IT FOR TYPEOUT 


;CSE 
s;ALLOW 10 ERRORS AT MOST 


;IF MORE, EXIT 
60, SERVICE CSE 


sCLR FLAG INDICATING SOFTWARE 
WRT Hk DONE BEFORE OR 
311? 5 1ST TIME? 

OTHERWISE DO IT 


» BRANCH 
WRT CHK'FROM THIS DSK-ADRES 
:THIS # FO WORDS 





1- 
319 011072 


uO Poss 


at Rt tt me me wt mt 
SRR ZOOS 


FES 
o 
my 


tut 


rurururufrururofrurorufrofroru frororururo frurururururo 


aes wae Pee 


Soe 


rururvrororurorururururoru 
in in 
wo ys 
oOo 
a 
tv 


lleeé 
1 ae 30 


011270 


001442 
000407 
001256 
001506 


001506 


011742 


001260 


00is00 


170362 
170380 


001582 
001260 


001110 


001254 


MACY11 27(1006) _04-0CT-7 
-76 15:36 1? aEag 


SFTCMP: 


REPMSC: 


1$: 


WCREPT: 


MOV 
MOV 
DEC 
TST 
SNE 


INC 


105 


14:26 PAGE 44 
, SOFTWARE COMPARE , 


WBUSAD, JRKBA 
#407, JRKCS 
RETRY3 


ERCNT2 
WCREPT 


ERCNT2 


#BUFR, Re 
sBUFR1 ,R3 
SBUF Re, RY 


INOX3 


INDX3 


T 
#READ, SLPERR 


#-2,RETRY2 


ERWCHK 
LUPWCE+2 


WRITE CHECK OF THE PATTERNS 
;WITH THIS BUFFER 


WRT CHK, GO, SSE 


; INDICATE WRT CHK DONE 


SFTWARE CMPARE ake ta a" ys ¥ 
F SFTWARE CMP DONE 


Sioa fal sehen 

et THIS | 15. 1 FIN FiRU 8 
T CHK WA ray F, BEFORE 

'D0 SOFT 

!THE DATA THAT WAS hea FROM 

THE DISK 

sINITLZE PTR T9 9 BUFR STORING 

PORE EXPCTD baa STARTING HERE 

STORE RECVD. (BAD) DAT 

:STARTING HERE 

CLR FLAG INDICATING MISCMPRE 

;INITLZE PTR 10 “RECO DATA’ BU BUFR patie: 

‘tage ere FO TesBcth DATE’ GuFR’ 

+ OSRRECT WORD READ FROM DISK? 


; BRANCH IF _MISCMPRE ERROR 
;INCRMNT PTRS 


310 NXT WORDS 
;DONE WITH CMPRISON? 
:IF NOT, COMPARE THE REST 


;WAS THERE A BAD DATA WORD 
: (EVEN AFTR RETRYING) 
NO, BRANCH 


;DATA ERROR 
:ALLOW 10 ERRORS AT MOST 


;IF MORE, EXIT 


+ PREVI ie eid 4 sd FROM 


F THERE Has : "ter TRY AFTER MISC 
ihe ISON, DO WRT CHK AGAIN 


SEG 0060 


MRINDEC-11-DZRKL-D MACYL1 27( 1006) 
DZRKLD.P11 31-AUG-76 15:35 
1127 O44 
ca bi Ere 7& oig778 1440 179160 
ll 013777 1444 170146 
2378 OQOlislé 013777 001442 ete 
500 011320 012777 7 1701 
2381 pt i286 104421 
e382 011330 012737 011274 001110 
sae: Bt 126 rem 170106 
ca ll 1410 
£386 O11346 004737 016140 
2387 O113S5e 104026 
2288 011354 005237 001520 
2383 011360 001002 
yy 0l1i36e 000137 O12114 
33e O11 000001 170060 
5325 Silsss Seiden 
pa Bt ia76 rece 016140 120 
Zar bitais [eses> Boise DoLsoe 
2 
339 Biiise ph 
2400 011426 1 012114 
2401 O11432 000137 O12006 
2402 
2406 
2410 Lil43é ae OOi4ee 001424 
e411 O11444 1404 
e+le OL1446 062737 OO0002 o01424 
2413 O11454 000403 
cite Ol1l4S6 012737 001414 001424 
2416 O11464 013701 O01476 
17 Sete: b1G10} 010352 
18 011474 042737 9000017 001450 
19 011502 050137 001450 
2420 
e421 
cuss O11506 005237 001476 
gist 011512 922737 OO0004 001476 
eS 011520 001025 
e425 
2427 
cise $11Se2 005037 OO0147E 
e420 O11S26 032737 000001 001474 


O4-O0CT-76 14:26 PAGE 4S 
1? READ, § 
LUPWCE: CON. RESET 
MOV WOSKAD , IRKDA 
MOV CN’ aRKWC 
MOV WBUSAD JRKBA 
MOV 7, aRKCS 
CON. ROY 
ERWCHK: MOV #LUPWCE, SLPERR 
BIT sEITLA, , ORKDS 
Q 
JSR PC, GETINE 
ERROR 
INC CNT? 
BNE XHE 
IMP EXT? 
XHE: BIT 88170 JRKER 
BEQ FINISH 
JSR FC GETINE 
MOV G10. 
SUB £2488 G10 
ERROR e 
INC RCNTS 
BNE $ 
IMP XT7 
18: IMP WCEROR 
FINISH: CMP #PAT3, PRSPAT 
BEQ 1 
ADD #2, PRSPAT 
=F 2 
1S: MOV #PATO, PRSPAT 
2s: MOV INDX2,R1 
MOVB SECPTR(R1),R1 
3S: BIC #17, ADRES 
BIS R1,ADRES 
INC INDX2 
CMP #4, INDX2 
BNE GOBAK 
DONTRK: CLR INDX2 
BIT #BITO, INDX1 


JOS 


OFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 


sWRT CHK WITH THIS OSK-ADRES 
;THIS # OF WORDS 
;THIS BUS bres 


oo WRT CHK) 


;HE ON WRT CHK 
sALLOW le ERRORS AT MOST 


;IF MORE, EXIT 
;WRITE CHECK EROR? 


;GET 
Seve pa FOR TYPEOUT 
T CHK EROR 
SAC LO 10 ERRORS AT MOST 
;IF MORE, EXIT 


ek Be Fic Ut CHECKING POR” SOFT 
ee 


TO CHEEK xT BLO 


FIN OUT THE NXT PATRN GENRATR 


;T0 USE FOR TING THE 

;BUFR, STORE POINTER TO 

; GENRATR oy INE IN *PRSPAT’ 
R 4 PAT-GENRATRS 


) 
Pato-Pa sore alee eae 
:FOR Pare ‘ TO BE USED NEXT 


SECTR BITS 
FORM THE NEW DISK-ADRES 
ne NXT BLOCK TO BE 


;DONE ALL 4 BLOCKS(3 SECS 
EACH) ON THIS TRACK? 


IF_NO BAK & DO THE 
:NXT Brack” ON THIS TRACK 


ee acR ee COUNT FOR 
ON THIS TRACK 
;WHICH SUR TO DO NXT? O OR 1 


MAINDEC-11-DZRKL-D 


2431 
se 


OZRKLD.P11 


011534 
011536 


011544 
0i1sse 


011554 


31-AUG-76 
001407 
062737 


042737 
00043 


0S2737 
005237 
001002 
000137 
000137 


MACY11 27( 1006) 


15:38 


ooco4e 001450 
o00deo 0014S0 


000020 001450 


001474 
O12120 
O104S6 


167650 
000017 
ooco04 


001432 


001252 


177760 


SEs 


177775 
177776 


001432 


001eSe 


001eSe 


04-OCT-76 14:26 PAGE 4 
1? READ, SOFTWARE COMPARE, 
BEG DOSURI 
ADD 840, ADRES 
BIC 820, ADRES 
BR DONE 
DOSURI: BIS #20, ADRES 
DONE: INC INDX1 
BNE G2BRK 
TST10 
GOBAK: JMP BEGIN 
; CSEROR 
CSEROR: 
MOV aRKDA, RO 
MOV Rl 
gir a7, RO 
NE 
SUB #4,RO 
1S: DEC RO’ 
CMP RO, DSKADR 
BNE 2 
INC RETRY! 
BNE 38 
MOV R1,Re2 
BIC #177760,Re 
7$: BNE 3 
IMP WRTCHK 
8S: SUB #3,Re 
BPL 73 
6$: MOV R1,R90 
MOV #-3, RETRY! 
BR 3 
23: MOV 8-2, RETRY! 
38: MOV RO, DSKADR 


KOS 


WRITE CHECK OF THE PATTERNS 


;BRANCH, DO SUR 1 NXT 


;CLR SUR BIT, DO SUR O NXT 


;SET SUR BIT, DO SUR 1 NXT 
;DONE WITH ALL 626 TRACKS? 


IF NOT $0 Bek & CHECK 
‘THE NXT T 


iF SIS T enrey POINT 
Sun ROR RVIC OR CHECK 
ON eeu 


2 XFERE 
RE ONCE CSE 0 
a RKDA AFTER CSE 


;SA 
ee THe BORE OF THE SECTR 


;RO_CONTAINS DSK-ADRES WHERE 
;CSE OCURED 

;D1D A PREVIOUS RETRY (IF ANY? 
2 Se CSE ON SAME 


Fy Cou Coli, 

;BRANCH IF 3 RETRIES HAVEN’T 
EN ‘+ 

if REPOR 


T SE "THE REST x me 
: THE SECTORS FOR CSE. 


tHE CSE 2 MORE TRIES FOR 


CSE ON SAME DISK-ADRES 


;SAVE DSK-ADRES FOR DOING 
THE RETRY-READ 


LOS 


at at at at ab at at at at a at a 


SUNCOM RRR PRR oes 


HOR URUR OT URUR OT OUNO 
0 b= bs ba = be bs 
WONMU£lTe-O 


aah 


i 


11-D2RKL-D MACYL1 27(1006) O4-OCT-76 14:26 PAGE ¥ 
11 31-AUG-76 18:35 17 READ, SOFTWARE COMPARE WRITE CHECK OF THE PATTERNS 
011704 - 163700 001450 Sus ORES, RO . IY Saat ieee 
RitSiS BResss us: Bee Wee re tw apie 
011714 001407 . BEG S$ 
112 6 be? 37 901000 001434 ADD #1000, BUSA 
117 737 000400 901436 ADD 8400, WROCN 
011732 000767 Si SR 4§ 
? 544 | $: ON. RESET HE CSE_IN RKER 
ai isa? ocak OLOS&E . MP RDAGAIN i D'BHCK, BEabNa BR 
;MISCMP S IS THE ENTRY POINT 
rH sPBvIte ROUTINE, EGR. 
‘tora EROR (MISCOMP 
:0N SOFTWAR (NISCOMPARTS 
OF DATA READ FROM THE DISK BLOCK 
O11742 10442) MISCMP: CON.RDY ;WAIT FOR CNTRL ROY FROM 
:PREVIOUS WRT CHK 
11744 032777 o40000 167504 BIT #BIT14, IRKCS 
11752 001401 Q 
011754 104415 CON. RESET CUR WCE IN RKER 
iT Tt DATA EROR ENTER HERE 
011756 010022 18: MOV RO, (R2)+ M ADRES WHERE 
11 12123 MOV (R1)+, (R3)+ on ExXPcTD CATA. 
11268 15453 Moy (R )+! (R4)+ TA YD (BAD) 
011764 005237 o01S00 INC INDX3° ‘ INDICATE MISCMPRISON 
11770 27 001502 INC INDX4 ;STORE ONLY 12(DEC) ERORS 
11774 601402 BEG 4g !IF 12 ERORS, GO REPORT THEM 
011776 000137 011170 JMP CMPAGAN :GO BACK & CMPARE THE REST 
O12002 000137 o11220 4g: IMP REPMSC 
;THIS THE ENTRY POINT FOR 
*EROR SERVICE ON GETTING A 
WRITE CHECK EROR. 
012006 005727 001256 WCEROR: TST RETRY3 ;DONE 3 TRIES? 
OleOle 003035 BGT CLRERR iF NOT SKIP, OTHERWISE REPORT 
012014 012737 900003 o01256 MOV #3, RETRY3 ;SET CONT FOR RETRIES 
Ole022 017700 167436 MOV JRKDA, RO IF WC bits IN THE LAST SECTOR 
Clete 010002 MOV OF T BL CK, NO MORE SECS 
012030 042702 177760 BIC: %177760,R2 :TO CHECK TO FI 
012034 001002 2$: BNE 45 tIF IT WASN’T LAST SECTOR OF THE 


MOS 


MBINDEC-11-D2RKL-D MACY11 27(1006) O4-OCT-76 14:26 PAGE 48 ; 
Sa Pil  31-auG-76 15: 1 READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS SEQ coe4 
e543 012036 900137 011436 = JMP FINISH ry: THEN, CHECK REMAIN . 
seid BiSRIE 1&5 595 ape tf k 2 ftp The He ON GIVING WCE) 
2546 012050 010001 18: MOV RO,R1 :SAVE DISK ADR 
254? plese ie ? opi 440 SUB WOSKAD, RO 
e548 012056 01013 1440 MOV R1, WOSKAD at SAVED DISK ADRES 
2548 9120be : js INC RO 
of Biddee bora BS 
esse 012070 737 001000 o01442 ADD Sooo” WBUSAD §;FORM THE NEW BUS ADRES 
2553 012076 062737 OO0400 901444 ADD #400, WWRDCN FORM THE NEW WORD COUNT . 
e554 012104 000767 BR ? 
SESS O12106 104415 CLRERR: CON.RESET 
55 012110 600137 011056 JMP WCAGAIN 
2558 012114 004737 OL6716 EXT7: JSR PC, ABRT 
2559 
2561 § eer iD URITE. IRITE CHECK ON CYLINDERS 127, 128 
2562 &TEST 10 WRITE TE CHECK ON CYLINDERS 127, 128 
2563 :#THIS thet Tha rie 12 UNIQUE PATTERNS (ONE tok EACH 
2 >#SECTOR) ON CYLI 127 THEN WRITE 
Sees + #CHECK Is DONE TO SEE IF THEY WERE WRIT ER 
;RCORRECTLY. | IT D BE IS 

2567 *CHANGE IN ’WRITE’ CURRENT AT THIS CYLINDER. 
Ft :#PATTERNS ARE RELOCATED ON THE CYLINDERS AFTER EACH 
2569 :#WRITE/WRITE CHECK CYCLE. THUS THE FIRST TIME 
2570 : #PATTERN "SPL? IS WRITTEN ON SECTOR 9, PATTERN gre" ON 
2571 !#SECTOR 2, ETC. AFTER THIS WR cron tte. CHECK CYC 
2t7e #15 OVER PATTERN 'SP2’ IS WRITTEN ON N SECTOR 0. PATTERN 
2572 _ }#:?SP3" ON SECTOR 1 AND SO ON. THIS WRITE/WRITE 
2574 :#CHECK CYCLE IS TED 12 TIMES 
e375 -*THE LAST WRITE/WRITE CHECK IS 
76 -*PATTERN 'SPle’ CTOR 0, PATTERN ’SP1’ IS 
2577 WRITTEN ON SECTOR 1 ATTERN ’SP2’ ON SECTOR 2, 
e578 3 TC. IF YOU WANT TO URITE ANY OTHER PATTERNS 
go73 ric, IN THE, PATTERNS YOU WANT IN LOCATIO 
2581 pe ih Ai OE CRE ER MEETE ies 
eee 012120 co0004 +éT10: SCOPE 
2584 012122 012737 177764 OO1SC4 MOV #-14, ERCNT1 SALLOW 12 ERRORS AT MOST 
2585 012130 012737 177764 001506 MOV #-14' ERCNT2 ;ALLOW = ERRORS AT MOST 
epee 12136 012737 rere 001510 MOV #-SS/ERCNTS *ALLOW 15 ERRORS AT MOST 

12144 Ole70e O12bee MOV #SP1' Re tINITIALIZE POINTER TO PATRN 
2588 Ol2i50 010201 DOWRT: MOV R2,Ri 
2te9 1e15e 12700 997740 MOV #7749, RO ;SET UP CYL ADRES BITS (127) 
2590 i 3700 901230 BIS DRIVAD, RO :SET UP DRIVE # BITS 
2591 Olelée WRLO!: CLR R 
eee Ol2ié4 104415 E CON. RESET 
2594 Ol2166 010077 167272 WRLO: MOV RO, IRKDA ;ADRES THE DRIVE 
2595 012172 012777 177400 167260 MOY #-400, ARKWC :WRITE 1 SECTOR 
e238 12600 10177 16725 MOV R1, JIRKBA USE FIs PATTERN 
£97 012204 01 004003 167244 MOV #4003, IRKCS tORITE. GO 
25928 Olzele 104421 CON. RDY 


NOS 


| MAINDEC-11-DZRKL-D MACY11 27(1006) O4-OCT-76. 14:26 PAGE 49 
OZRKLO.P11 31-AUG-76 15:35 T10 WRITE, WRITE CHECK ON CYLINDERS 127, 128 


93 g1z214 77 140000 167234 BIT #140000, aRKCS ANY ERROR? 
pies 732 12164 001110 MOV SWRERR, SLPERR :SET ADRES FOR LOOPING ON ERROR 
Leese 737 O16! ISR PC, GTHRG :GET TKCS, ER, DS 
2603 012236 104021 ERR TERROR OCCURRED ON DOING A WRITE 
2604 Olee4o 104415 CON. RESET :CLEAR THE ERROR 
2605 Ol224e2 37 001504 INC ERCNT1 ‘ALLOW 12 ERRORS ONLY 
pisses 52°95 ; 
l 13? O12656 I EXT1O 
2608 012254 o0s200 4g: INC RO 
2610 012256 005203 INC R3 :KEEP COUNT 
2611 Ol2260 O22701 o12654 CMP #5P12,R1 USE PATTERNS IN A CYCLIC FASHION 
2612 Olec64 O01062 BNE 
61 ieee 012701 o12624 MOV #SP1-2,R1 
14 612272 005721 3S: TST (R1)¢ . ; INCREMENT POINTERS TO NEXT PATTERN 
2615 Olee74 020327 o00014 CMP R3, #14 _ DONE SURFACE 0? 
2616 012300 002732 BLT WRLO er 
2617 O12202 0901005 BNE YES, IF CHANGING HEADS 
e618 bie304 pi0ed1 MOV Re Rl 
19 012306 642700 o00017 BIC #17, RO ;SET UP CORRECT ADDRESS ETC. 
eee0 Olezi2 052700 o00020 BIS #20'RO 
| Bee2 012316 020 090030 2s: CMP R3, #30 sDONE WITH WRITING SURFACE 1? 
| ebe2 Ole322 001321 BNE WRL :NO, BRANCH 
«Bes 912324 032700 007700 WRHI: BIT #7700, RO :DONE WITH BOTH CYLINDERS - 127 8 129” 
2626 012330 O01405 -BEQ DOWCHK YES 
«Be RES Bee ne SO Le eld ences 
| a 
5e5e 012342 ates BR Ol :G0 BACK 
| g20 :CYLINDERS 127 AND 128 HAVE SEEN 
} 
Bae 012344 010201 DOWCHK: MOV R2,R1 sWRITTEN, NOW DO WRITE CHECK 
2634 C1224 012737 177775 001252 MOV #-3, RETRY! : INITIALIZE POINTER TO FIRST PATTERN 
«Be Dieses 012700 O10008 mov #10600, RO ;RETRY 
# 12360 1230 BIS DRIVAD; RO :DO CYLINDER 128 FIRST - 
1e264 WOHI1: CLR R3 
| Olezte 010077 167072 WOERR: MOV  RO,@RKDA sADRES THE DRIVE 
! 
40 01 1 177400 167060 WCHI: MOV 8-400, IRKWC ;WRITE CHECK CTOR 
4) 1378 RET SS 1 onee MOV Rl oecbae tH THI Patre 
4 1e403 16777 004007 167044 MOV #4007, aRKCS :WRITE CHECK, GO 
43 Ol lz 1044e1 CON. RDY 
. 12414 040000 167030 T #40000, IRKDS se” 
1 1305 9 i ; 
47 01 73? Ol6i40 3SR C, GETINE 
2e4e O12430 1 ERROR 26 sHE ON DOING WRT CHK 
e573 3184 os 001 TNC ERCNT2 sALLOW le ERRORS ONLY 
sO 0} 001 EG EXT10 [IF MORE, EXIT 
HE z: rate ooood: 167006 18: = Eff AEITO,GRKER = GLE? 
i : ; 
ze5s 1 3355 Ql2366 001110 MOY SWCERR, $LPERR ie ADRES FOR LOOPING ON EREOR 
2E5 12456 004737 O1E140 ISR PC, GETING :GET INFO ON ERR 
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04-0CT-7 
to Te, 4 ES ae HERS ON CYLINDERS 127, 
MOV pape $REGIO : 
80D REGIC WOE ON DOING WRITE CHECK, WITH 
RROR 33" “PATTERN STORED { 
NC RETRY :DO 3 TIMES IN AL 
ine BRCNTS sALLOW 15 ERRORS ONLY 
BES XT10 IF MORE, EXIT 
MOV e-3,RETRY) 
48: NC R EEP TRACK OF DISK-RORES 
NC Ri AREF SNe 
che 85P12,R1 : USE SAT TERNS IN CYCLIC 
2s i aie UNCREMENT POINTER TO NEXT PATTERN 
; C Ra aly ARE cone ace -o7 nag ee Ate ete 
BT WOH NO 
MOV zi RI IF. CHANGING HEADS (0-1), SET CORRECT 
He 317.89 :ADRES SITS 
§ 0; 
: a R3, 830 sDONE WRITE CHECKING SURFACE :7 
- ENE Raat 3NO, GO ae 
WeLO: BIT 87700 700,R0 sDONE BOTH CYLINDERS - 127, 128? 
MOV nore RQ. DG SYLINDER 127 NOW 
BIS DRIVAD, 
s* WCHI1 
REPEAT: TST R2)+ sRELOCATE THE PATTERNS ON THE 
Mp ORB aSP 1242 CYL TROERS AND D0 17 AGAIN 
Q 1st 
“F DOwR Sar TEXT) 
:PATTERNS TO BE USED 
Pl; iif YOU WANT TO WRITE ANY 
ep3! e eee PATTE CHANGE THESE 
eb3: 2121 ff PR aTLe ANY PATTERN 
Be! ] YOU 
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i ITE, WRITE CHECK ON CYLINDERS 127, 128 


ay SPSSSSSSSSSSHSSSSSSSSSSSSARESHSSSSSSSSSSSSSARSSFFFSSSFSSSSSELEAPSESSES 

i! y i . SEEK FUNCTION TIMER 

:#IN THIS PART OF THE PROGRAM SEEKS TIMED BETWEEN A PARTICULAR SET 
:#OF CYLINDERS, BOTH IN THE FORWRAD DIRECTION (0-312) AND REVERSE’312-0). 


j eReRSEECALT I ONSSEREE 

s#IT NOTED THAT SECTOR COUNTER (IN RKDS) IS USED AS THE REAL 
Q DO THE SEEK TIMING. FOR THE TIMES TC BE RELIABLE, THE 

ACCURATE WITHIN THE SPECIFICATIONS OF THE DISK 

7 RPM = 40 MILI SECS/REV =3.33 MILI SECS/SECTOR. 

;#VARIATION: += RPM 

FFEEESRSSESRESERESERESES RESELL ESESERELSESLELESLSLS ASSESSES SS 


téT11: SCOPE 
- wSHE, BSR : INHIBIT TIMER? 
im PLTGRPH 
5 BESET 
MOV 8-7, RETRY] :COUNT FOR 7 DIFRNT SEEK TIMES 
:T0 BE RECORDED 
TYPE S$ ::TYPE ASCIZ STRI 
as 45 > S GET over te Asch? 
jess: VASCIZ. «<15><12>/SEEK TIME SCALE FACTOR=0.01 MILI SECS/ 
; TYPE £78 :: TYPE AScIz ar NG 
ct bes ::GET OVER ASCIZ 
ii§75: “ASCIZ «<18><le><1a7 0 OF SEEK 8 OF SEEK/ 
; TYPE £9$ 3; TYPE ASCIZ STRING 
ss 85 ::GET OVER THE ASC Iz 
jig: SASCIZ <15><l2>7 SEEKS IME SEEKS ME/<15><12> 


MOV e108 Naor iNET PTR TO INNER ADRES 
8SOAD, OUTRDR ;INITLZE STR TO OUTER ADRES 


REPTIM: MOV QOUTROR , JRKDA IBEFOne STARTING To TIRE CYLINOER 





BIS DRIVAD, JRKDA T OR 
MOV $11,aRKCS - SEEK 
CON. ROY ;WAIT FOR CNTRL ROY 
TST. RWS {WAIT FOR R/W/S ROY 
CLR INDX1 ;INDX1 = 0, GOING IN: OTHERWISE OUT 
MOV 8BUFRIO,R4 set? FWRO SEEK TIMES IN THIS BUFR 
MOY RIL RS :STORE REVRSE" * 
MOV e-144, : SET 7 FOR @ OF SEEKS 

BEGSK: MOV 





-— 


, DO6 





MAINDEC-11-D2RKL-D MACYLL 2711006) 04-OCT-76 14:26 PAGE S2 
DZRKLO.P11 4-31 -AuG-76 15:35 Thi SEEK FUNCTION TIMER SEQ c0ee 
77 013200 737 OOL4T4 TST INOX1 :GOING FWRO OR REVRSE” 
ere R355 | SSF o8e BNE 40 s«d1S eee MBRancH 
770 013206 O17712 166046 MOV QINAOR, 982 FWRO, SET INNER CYL ADRES 
gi3eie 7le 001230 815 DRIVAD, ake :SET ORIVE # BITS 
13216 FI 2s 
013220 017712 166036 18: MOV TADR, aR2 $61 OUTER CYL ADRES 
13204 OS37iE 901230 81S 1vAp oRe sS6T ORIVE # BITS 
776 013230 73? «O14?22 2s: sk C, aaT IMSEK :G60, TIME THE SEEK FROM CYLINDER 
77? :0 tO THE ABOVE CYL. RETURN WITH 
3778 =R3 CONTAINING THE TIME (MS, SCALE 
2778 ‘FACTORS 0.01) REQUIRED FOR’ THE SEEK. 
2780 013234 005737 001474 TST INOX! 
781 013540 93004 
Hi 6i3e42 0) MOV R3, (R4)4 ;STORE TIME TAKEN FOR FRWROD SEEK 
e783 9132044 006257 o01474 INC NOX! :SET FLAG FOR DOING REYRSE SEEK 
ees 013250 000751 1 BEG :60 DO IT 
i 3$: MOV R3, (RS)+ :STORE TIME TAKEN FOR REVRSE SEEK 
ere $33526 SAoSES 001474 CLR INDX! tae 2 FOR BOENG FRWRO SEEK 
E78 013260 005237 o01476 INC INOX2 sRECORDED 144 SEEK TIMES 
e230 013264 001343 BNE BEGSK :IF NOT, GO BAK 
a ST ROSS EP Uae Fg wee ee FEE RAE 
552 :T] g STORED N THELE 5 ant Ts AT ’BUFRIO’ REVEPSE 
2795 “STARTING AT ‘BUFRI1'. THE FOLLOWING CODE FINDS 
or ?NUMBERS OF TIMES A PARTICULAR "SEEK TIME’ WAS OBTAINED 
:E : OUT 400 TIMES THE SEEK WAS DONE BETWEEN 
2795 Grud MES Orban 95 MILI SEC 
2200 :20 times tt TOOK ge Mit ae «e 
280i :10 TIMES IT TOOK 100 MILI SECS 
cece THIS INDICATES HOI FONSISTENT WAS THE SEEKING TIME. 
eo: : ONLY S DIFFERENT “SEEK TIMES” WILL BE TYPED 
€ 4 
2655 
e08 : SORTING ROUTINE 
Sede 12266 012705 SORT: MOV a2 SCOUNT FOR FRWRD, REVRSE 
2209 bier Qt 3 026742 991162 MOV egUFR1O SREGO ;INTLZE PTR TO ‘SEEK TIME’ 
2210 6! 1 026744 801164 MOV sBUFR10$2, SREG! 
gil Oiss0e 61 Debi O0ii66 MOV BBUF RY, SREG? ; 
cic 13314 O61 OetS2e 00117 MOV SBUFRS;S$REGS §; INTLZE PTR TO ‘# OF TIMES 
ects 013222 013700 001162 1s MOV SREGO,RO :PTR T ‘SEEK TIME’ 
is ci gzet a 164 MOV SREGI, 
2616 0] 127 35 MOV #-143'R2 ;COUNT FOR 143 ITEMS TO SORT 
61? 01333 CLR 
E13 01 1011 2s: CMP (RO), (RL) ;SORT THE ITEMS 8 PUT THEM 
20 Ol BLE :IN DESCEND OROE 
2221 O1 li MOV (RO), RM LARGER ITEMS AT TOP OF LIST, 
2e22 013346 O11li0 MOY (RI)! (RO) : SMALLER AT THE BOTTOM 
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| MAINDEC-11-D2RKL-0 MACYL1 27( 1006) a -OCT-76 14:26 PAGE $3 
| DZRKLD.P11 © 3l-AuG-76 15:36 SEEK FUNCTION TIMER SEQ 0069 
| pS23 013350 o1041: MOV RY, (RL) 
«24 Ol INC Ra. 
ees 13354 3S: (RO)+ 
l 721 TST (R1)¢ 
| 2837 613360 INC Re 
«Ses pi ase6 poesee at gs sSORTED ALL ITEMS? 
| ses siasee | 85) a | eee Tobe once 
} l 1 MOV RO PTR TO ‘SEEK T 
| ae ee 5 1 Bot ee MOV eae EWE eee time HERE 
13400 01 0011; MOV $REGS.Re :SAVE ’# OF TIMES’ HERE 
| 2835 013404 610204 MOV R24 
l 024 CLR (R4)4 Gu OUT S WORDS OF 
134] eae éLR (R4)+ & OF TIMES’ BUFR 
1341 CLR (R4)¢ 
| 2833 O13414 CLR (R4)+ | 
295) Oi 34i6 éLR (R4)4 
| a 013420 012703 177773 MOV #-5,R3 ;SAVE ONLY § DIFRNT ‘SEEK TIMES’ 
se45 012424 011011 MOV (RO), (RL) :FIND OUT THE °s OF TIMES’ 
Bess Cisse c1grs 177634 “ Mov a-148,R3 “EACH "SEEK TIME’ WAS 
ie see cathe . §ro sO : OBTAINED 
| BE4YB 013436 905721 TST (R1)¢ 
2249 O12440 O16011 177776 MOV -2(RO), (RL) ;SAVE "SEEK TIME’ 
gE5C gt TST (Re)+ . 
1 teii¢ 127le 90000! V #1, (R2) sKEEP '# OF TIMES 
ease 013452 INC R3 
2853 013454 901404 BEG 3 s 
| eee O1345& O007E5 BR 4§ } 
2856 013460 o0se212 S$: INC (Re) ; INCRMNT OF TIMES" 
2857 O13462 03 inc R2 oA BONE 
eee Ol2464 O0laee 4§ NOT, GO BAK 
2260 013466 o0s205 6S: INC RS ;SORTED BOTH FRWRD, REVRSE 
2861 013470 O01415 BE GOTYPE ;*SEEK TIMES’, IF ves GO TYPE 
sees 013472 012737 O27342 OD11b2 MOV #8UFR11,$REGO ” NOT, INITLZE PTR TO ‘SEEK TIME’ 
2e64 8] ie? 027344 OO1164 MOV #8UFRi142, $REGI 
ees 013506 012737 deeboe OOlibe MOV SBUFR6,$REG2 ;SAVE "SEEK TIME’ 
eee6 513614 012737 Oetsee 001170 MOY SBUFR7/SREGS  ;SAVE °& OF TIMES’ HERE 
2868 O13S22 000677 BF 1s :GO BAK & DO SORTING FOR REVRSE SEEK TIMES 
555% Type QUT CYL #°S BETWEEN WHICH SEEK 
2671 WAS TIMED. OUTADR’ TO 'INADR’ “INADR’ TO *OUTADR’ 
i GOTYPE: TYPE 
Bae } ie SCRLF 
2674 61 012836 YPE S$ :; TYPE ASCIZ STRING 
ere 013634 a _ ae bus F ::GET OVER THE ASCIZ 
555 012544 bags . , 
2e7e 


FO6 





1-DZRKL-D MACYL1 27(1006) O4-OCT-76 14:26 PAGE S4¥ 
Pll 4 -3l-AUG-76 15:35 Til SEEK FUNCTION TIMER SES 0070 
} 
13544 017700 165512 V OUTADR, RO :GET OUTER CYL 8 
se ney ORS . 
135 00 ASR 
013554 00 ASR RO 
| Be Hee Bee a 
13562 010046 MOV RO, -(SP) 
Be UPS umn Tees ace DS OT Puget 
4 é ‘3 
eee 13672 booues bes ::GET oven tue asciz 
--67§: .ASCIZ /-/ 
2890 013576 bé$: 
2891 O13576 O17701 16S4Sé MOV DINADR, RL :GET INNER CYL 8 
| =F oiseds Bese} cee 
ee Bi seee 1 ASR Rl 
2ecs 913610 me ASR R] 
e235 91361 l ASR R} 
| 28 13614 10146 MOV R1,-(SP) 
«Bee Ol3eie 154424 TYPDSS ;TYPE IT QUT IN DECIMAL 
| 2893 013620 104401 013626 TYPE £98 ;;TYPE ASCIZ STRING 
| 8300 013624 BS o8§ :3GET OVER THE ASCIZ 
1 --69§: .ASCIZ <15><1l2>7 FRWRD/ 
013640 8s: 
2903 313640 10440! 002101 TYPE »BLNKSS 
| p@04 O13644 10440] O13652 TYPE 71$ $1 TYPE ASCIz STRING 
 « BSOS «O1365c 00404 BR +0 :GET OVER THE ASCIZ 
e256 -71$: .ASCIZ /REVRSE/ 
| g307 013bee bis: 
2908 YPE OUT THE ’# OF SEEKS’ & SEEK 
210 ‘TIME’ OBTAINED FOR EACH OF THOSE 
il : SEEKS 
2512 Olz662 o0s000 TYPTIM: CLR RO 
e313 pieee S800 sn cL RS 
s3t¢ +3658 maeie SCRLF 
«BSIE «013672 O1EO4E oeESze MOV BUFRS(RO),-(SP) ;GET ’# OF SEEKS*, IF NONE (0) 
| 2917 O13676 001424 Q 3$ :SKIP TYPING (FRWRO SEEK) 
e318 012700 104405 YPOS °GO TYPE OUT DECIMAL '# OF SEEKS’ 
| 281 13706 104401 TYPE 
eet 01 110 BLNKS2 | 
1 6132706 O1E04E o2E442 MOV BUFRY(RO),-(SP) ;GET ‘SEEK TIME’ FOR EACH OF 
0137l2 0440s TYPDS OF THAT '& OF SEEK Ss’. 'GO 
| :TYPE OUT IN DECIMAL 
13714 OLEO4E O2bE2 2s: MOV BUFR7(RO),-(SP) ;GET '# OF SEEKS" F NONE (0) 
5257 Breede cath BEG ae :SKIP TYPING (RE VASE SEE 
«Ba Ee Be a 
eS Ge TEAR onzor Fie Sdunas 
013732 104405 tS: Twes ;TYPE OUT IN DECIMAL 
| 313530 beeita a nse 
33 013740 O1EO4E oOetEoe MOV BUFRE(RO),-(SP) ;GET ‘SEEK TIME’ & TYPE IT 
35 613744 1O44056 TYPDS :OUT IN DECIMAL 
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SEEK FUNCTION TIMER 


BR 


TST 
INC 
8R 





SES 0071 


;POP STACK 


;POP STACK 


iA one: PTR TO TABLES 
;1 NOT GO BAK 


;INCRMNT POINTER TO NEXT 
INNER & OUTER ADRES 
SALL DONE? 


; INHIBIT ayant” FURTHER ” 
G0, BACK AND TIME REST 
: OF sfevs 


:PLOT GRAPH OF *SEEK TIME’ V/S °CYLIDERS SEEKED’ 


; PERFORM of FROM CYLINDER 0 OR QTHER CYLINDER £8. Ele 


BSAA IDG Me ne: FE PEC GBNI™ Me SEK TE 


Te THE SEEKS 


;SKIP THE GRAPH? 
; YES, BRANCH 


ORE eee eg Oeg,0-1, ,O-3le 
;CLR CYL ADRES BITS 


$T Sal CYLINDER 
S THE RIGHT DRIVE 


;G0 Tine THE SEEK FROM CYL 0 
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Tll Fe FUNCTION THER 


BNE 1s 
:PLOT A GRAPH USING "SEEK TIMES’ RECORDED BEFORE 
PLOT: , 
TYPE S$ :;TYPE ASCIZ STRING 
R 4 : GET QVER THE ASCIZ 
jigss: “ASCIZ §«<15><12>¢12><12>7k AXIS - SEEK TIME - MILI SECS. 
A Tg ? ;;TYPE_ASCIZ STRIN 
BR . eS +i Ute ER te ASCIZ 
jig7s: SASCIZ <15><12>/¥ AXIS - CYLINDER SEEKED FROM 0/<15)«12)«12> 
TYPE 
cp R TYPE OUT THE TI IT 
1S: MOV BD. =(SP) : (MILI SECS) FOR SH exrs 
TYPDSS LIKE THIS: 
TST : = 
eed 2 
MP #144, R0 
BGT 4§ 
CMP =ss«8 170, RO 
BLT 5$ 
TYPE 
NK 
BR 3 
23: TYPE 
BLNKS1 
1S: nts 
3s: a #12,R0 
BR 1§ 
cs: TYPE 
CRLF 
YPE 
BLNKS7 
PLTL: MOV $-15,R0 ; TYPE OUT THE X-AXIS MARKERS 
. TYPE 65$ :;TYPE ASCIZ STRING 
64g ::GET OVER THE ASCIZ 
--65§: .ASCIZ /I----/ 
64s: 
INC RO ; ----]----I---- 
BNE 1g 
sIF SW 4 IS SET THEN TYPE THE COMPLETE GRAPH. IF NOT TYPE THE SMALL GRAPH. 
BIT 8SW4, ISWR ; TYPE COMPLETE GRAPH? 
NE CMPGRP Y 


tIF NOT, TYPE SMALL GRAPH 
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wT “OCT-76 14:26 PAGE $7 
Til SEEK FUNCTION TIMER 


SMGRF: CLR RO 
1$: I , BENE, OSHR ve REST OF GRAPH? 
tyre ott Y tbe se ecTeD SEEK TIMES ARE 
: oid 6,8 nt 12,14, ie 13 30, 
im 45 36 AS | 0, 13 33200, mohver 
MOV RO,-<SP)’ Eas 
TYPOS 
YPE 6S$ ri YFE ASCIZ STRING 
=k b4§ :GET OVER THE ASCIZ 
jiees: -ASCIZ /-/ 
; Mov RO, Rl sFORM THE ADRES OF "SEEK TIME’ 
MOV BUFRIO(RI), R2  ;GET THE SEEK TIME 
JSR PC, PLTPT ;G0 PLOT IT 
CMP #4'RO sPLOTTED UPTO CYL 4? 
BLE es :YES 
INC 0 
BR 1$ 
2s: CMP 824,RO ;PLOTTED UPTO CYL 20? 
Bi 
38: CHP #310, RO ;PLOTTED UPTO CYL 2007 
B00 #5,R0 
4$: CMP #212,R0 sPLOTTED ALL CYLS? 
BEO c$ 
ADD #2,R0 
ok 
cs: IMP TST12 


;IF Sw 4 IS SET THE COMPLETE GRAPH IS PRINTED OUT. IT GIVES TIMES FOR 
;SEEKS FROM CYLINDER O TO ALL OTHER CYLINDERS (0,1,2,3...202). 


CMPGRP: CLR RO sINITLZE COUNT 
MOV #-5,R1 !INITLZE COUNT FOR Y-AXIS MARKER 
HOV #BUFR10,Re2 :INITLZE PTR TO SEEK TIMES 
SCRLF 
3$ 
2s: BIT #SWS, ISWR ;SKIP REST OF GRAPH? 
IMP ithe 
INC ;TYPE OUT Y-AXIS MARKER "CYL 8° 
BNE as IF REQUIRED 
MOV 8-5,R1 
2$: MOV RO, -(SP) sTYPE "CYL #’ ON Y-AXIS 


TYPDS ; CIN DECIMAL? 


| 
| 
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O6e703 000144 
00e40e 


104401 014716 
000401 


000207 


MACY1L1 oe GE S8 
"SEEK FUNCTION TIMER 


bse ASCIZ ae by! 
;GET 


“a 


Go PLor’ fie ¢ BINT = 


;IF NOT, GO BAK 


. _IN er iioiay NORMAL 

UNDER THE PREVIOUS CELL, A NUMBER 

HALF THE CELL WIDTH “ters UNDER THE NEXT CELL 
BETW'N 10 12, Bur ll 

Fk ane Js 10,8 8 


FIND out HOW MANY BLANKS TO 
INSERT TO PLOT THE POINT 
:NOTE THE FIRST CELL = 0 MS 


3; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


SEK 

THIS sasha eres OUT THE TIME REQUIRED TO SEEK TO THE ‘CYLINDER 

COUNTER IS USED AS A REAL TIME CLOCK TO KEEP TIME. 

* RKDA sent THE CYLINDER TO BE SEEKED FROM THE PRESENT POSITION. 





KO6 





2RKL-D MACYL1 27(1006) O4-OCT-76 14:26 PAGE $9 
. 31-AUG-76 15:35 Tll SEEK FUNCTION TIMER SEQ 0075 
3153 : ; RETURN: R32 CONTAINS THE SEEK TIME IN MILI SECS. SCALE FACTOR = 0.01 
161 
aie :R WILE COUNT REVOLUTIONS OF 
163 O14722 010246 TIMSEK: MOV R2,-(SP) :DISK (FROM INDEX MARK TO INDEX MARK) 
3164 0147 CLR R3 740 MILI SECS FOR EACH REV 
165 147 13701 oo14s2 | MOV RKDS,.R1 
1 147 111 a 1S: MOV dRi, Re 
3167 014734 032702 000400 BIT #400, Re WAIT FOR SOK 
Ate 014740 001 ni BEQ 1$ 
170 O14742 032702 OD0010 BIT #81T3,R2 *WAIT FOR SECTOR 10 SO THAT 
3171 O14746 001771 BE 1$ :U CAN START WAITING FOR 
12 INDEX, SEC 0 
3174 014750 011102 28: MOV aR1, Re 
3175 014752 032702 900400 BIT #400, Re :WAIT FOR SEC OK 
3176 O14 001774 BEQ 2 
3177 O14 21102 CMP dR1, Re 
128 014 9013 “NE 2g 
8 Bare ares ae? Bue 3% 8S oon’ Ae It fs Ec O° ieee nk 
3 BS Bee ia FRING 
| 
| 3183 0194772 012777 C0001! 1644S MOV #11, 9RKCS aati START TIMING 
} 3184 THe SEC COUNTER 
igs 018000 104421 CON. RDY WAIT FOR CNTRL RDY 
| 3187 o1so0e 011102 3S: MOV dR1 Re pn RKDS 
188 15004 032702 oo0400 BIT #400, Re WAIT FOR SOK 
| 3189 015010 9001774 BEQ 3$ 
| 3190 OlS0le Oedel CMP R2,aR1 ; INFO CORRECT? 
| 2131 g15014 001372 BNE 
_ 3198 O1S0le 032 po0100 BIT #100, Re IRyW/S ROY SET? 
| 3193 015022 001 BNE SKDON iF YES, BRANCH 
3194 015024 032702 000017 BIT #17,Re WAIT FoR SEC CNTR TO MOVE 
| 21% 015030 601764 TFROM 0 
| 3197 oO15032 011102 48: MOV aR1,Re 
3198 015034 032702 op0400 BIT #400, Re ;WAIT FOR SOK 
| 3199 O} 1774 BEG 
2200 1 z0e1 CMP R2,aR1 
1 61 13 BNE 
3202 015046 702 000100 BIT #100,R2 ;R/W/S ROY SET, SEEK DONE? 
2203 b1505¢ I BNE :YES, CH 
04 ois054 000017 I 17,Re IF NOT KEEP TRACK OF SEC 
| 3205 015060 001364 BNE 4§ ;COUNTER. INCREMENT R3 AT 
220 EVERY INQEX. MARK , EV ae 
15062 o0S203 INC R3 :40 MIL 
208 15064 900746 BR 33 :GO BAK, KEEP TIME 
3210 O18066 032702 000017 cs: BIT #17,Re ;CHECK, IS IT INDEX MARK -SEC 0 
3:1 015072 O01001 SNE SKDON IF NOt, 
| ze1¢ 016074 905203 INC R3 !IF YES; INCREMENT COUNT 
Bei ;SEEK DONE, SAVE RKDS-SEC COUNTER. 





MAINDEC-11-D2RKL-D 


Be ine ims 
3626 004737 
a ite ue 
Se HES Roe 
3231 


015144 012602 
ges? 015146 000207 
3238 
3233 
3240 
se4] 
sete 
se43 
se44 
3e4S 015150 900004 
se4 015152 105237 
as O151S6 1237 
015164 0014 
3e439 015166 0001 
3250 
geS1 
seSe 
3253 
3cS4 
2eS5 
3e56 
3e$7 
3eS8 
2es3 
seé0 015172 
3261 GiELrs 90 
on fee ee 
oe ee bey 
3e6E 015214 000001 
get? O01Sei6 00 
2e68 O1See0 QO} 
scb$S  01Seee 
2270 OlSee4s Bisel 
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000014 
020414 


177760 


000512 
020414 


ooce4s 


001223 
COlees 001224 


003704 


100000 001100 


LC 
04-OCT-76. 14:26 PAGE 
Eek FUNCTION TIMER 


SKDON: 
MOV 4,-(SP) ssPUt I MULTIPLER ON THE STACK 
Noy (SB) He THEt AE ARE ON rie TACK 
JSR pc’ SSSMULT CALL rhe RULIPLY ROUTINE 
NOY (SE +, (SP) : :DISRE i588, 
V (SP ath. te 'S OF THE PRODUCT 
8 
BOSCO RG if Blt. c. Bath te b1 
MOV #512 ={SP) met THe SCUFIPLER BN THE STACK 
MOV -{sp :PUT T MULT IPL ICAND ON THE STACK 
JSR Be’ SeSMULT CALL The MULTPLY ROUTINE 
MOV (SP)+, (SP) : : DISREGARD THE 
MOV (5P)+'R3 THE LSB’S OF THE PRODUCT 
#245 ,R3 ; ASSUMPT rigs" THat EACH SECTOR 


:TAKES 3.3 MILI SECS 


MOV (SP)+,R2 
RTS PC 14 URN 


5 RREREREEAERRREE ERA ER REL ALLE EER RRER EEE EERE ESLER HERES AREA EREE RES 
;#TEST 12 END OF PROGRAM 
;*THIS IS NOT A TEST pul IS. yVel A LINKAGE 


, 
:*PROVIDED TO TEST ALL T 
-sssunshescoecstenneaseneiracancsesnseteieeneceseusuneseeeeennes 


tét12: 
INCB DRVDON 

BTEOP: CMPB § DRVDON,DRIVS 
BEQ . +6 
IMP NXTDRV 


-SBTTL END OF PASS ROUTINE 
+ ERELE LEER EE ER EERE EERE ERE RE AREA EAA AER RE LAER EERE ERR ER EERE ERE 


A R ($PASS) 
te INDICAT E END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
#TYPE "END PASS #XXXXX" iS a XXXXX IS A DECIMAL NUMBER) 
eIF THERES A MONITOR GO TO IT 
;#IF THERE ISN’T JUMP TO ST3 


SEOP: 
SCOPE 
LR STSTNM 3;ZERO THE TEST NUMBER 
INC $PASS 55 INCREMENT HE PASS NUMBER 
BIC #100000, $PASS He ALLOW A NEG. NUMBER 
DEC (PC)+ ;LOOP? 
SEOPCT - 
BGT $SDOAGN ye 
MOV (PC)+,a(PC)+ ;:RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 


SES 0076 










MO6 





MAINDEC-11-DZRKL-D MACYL1 27(1006) O4-OCT-76 14:26 PAGE 61 
DZRKLD.P11  31-AuUG-76 15:35 END OF PASS ROUTINE SEQ 9077 
3271 015226 104401 915273 TYPE SENOMG :; TYPE “END PASS #” 
$57 bi pese O13746 1100 MOV $PAsS, -(SP) 55 SAVE $PASS FOR TYPEOUT 
| Bs Gee jose se nee sou, Her erat Gematien “TS 
as Gt b0338 ae $GETH2: MOV dede RO tIGET MONT TOR SHEE Ss 
ze 15250 001405 BEG SDOAGN s3BRANCH IF NO MONITOR 
ne Bigzes $ENDAD: bia PC, (RO) its #8 mo 
7 15256 000240 NOP ;;SAVE ROOM 
3280 pieces pees NOF 3;FOR 
3281 615262 60024 NOP t:ACTIIL 
| 3383 o15264 $DOAGN: 
3283 015264 000137 JMP gcfcoe ; ;RETURN 
$584 SiEEe SRTNAD: - WORD 13 
1 377 000 §ENULL: {BYTE 1,-1.0 «NULL CHARACTER STRING 
3286 015273 DIS O42412 O42116 SENDMG: .ASCIZ <16><J2>/enD pass’ s/ 
3287 015300 os0040 OS1501 020123 
| 3298 015306 90004 
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177777 


160037 





NO6 


O4-OCT-76 14:26 PAGE Ge 
END OF PASS ROUTINE SES 0078 


;COMMON SUBROUTINES AND HANDLERS 


— .SBTTL ESRIS 
‘tars ROUTINE IS USED To Q TYPE OUT ERROR DATA FOR IT ITEM 15 
Rutthe® Rs CONTAINS, Th THe € OTK AobaESs non AH 

RAVE BAD HEADERS H AVE 
: ENT EN STORED. STaRY aT tng aT ae UPR ltt. TEORRESPORDING BAD HEADERS 


me PRINTOUT LOOKS LIKE: 
HDR RECVD 


;SEC8 
:AA BBBEBE AA=BAD SEC # BSBSBB=BAD HEADER 
SEXPCTD HDR=XXXXXX TRY#= Y 
ESRIS: 
MOV R1,-(SP) ; PUSH R1 ON STACK 
MOV Re’ -(SP) : R2 ON STACK 
MOV #8UFR,R1 Bec #’S STORED HERE PREVIOUSLY 
MOV eGUFR! RE :BAD HDRS STORED HERE PRVSLY 
1S: MOV (R1)+, -(SP) 
TYPOS ;G0 TYPE QUT BAD SEC & <OCTAL) 
-BYTE 2 sONLY 2 DIGITS i 
foe YPESS BLNKS. 
BLNKS3 
MOY (R2)+,-(SP) ve TYPE OUT BAD HEADER 
TYPOC 
TYPE 
BLNKSY 
TYPE 
SCRLF 
chp #177777, (Ri) s6LL L BAD SEC #°S TYPD OUT? 
1 IF NOT GO BAK 
TYPE 
MSGE 
MOV RS, -(SP) ;TYPE OUT EXPCTD HEADER FOR 
IC #160037, (SP) 
YPOC ; THAT CYLINDER 
MOV (SP)+,Re :;POP STACK Into R2 
MOV (SP +; RI ::POP STACK INTO RI 
RTS 
.SBTTL ESRI3 


SRi3 
ae ROUTINE 13 Whee "ERROR 13°° TO TYPEOUT OUT ERROR 


THE SECTOR WHICH GAY 43 BRD rn pve | et STORED 
TARTING GT “EUFR’. "THE CORRES one SRO HEADER 


Eten ScoRED STARTING GT 'BUFRI?. RE CONTAIN THE EVPEZTED 


Z 


mn 


wy f 


#3 


i 


be 


at 


am Sy) 


ee eee ee ee 


ae 


ih 


Hp 


i 


LEALAL £4 


HEL iinisivivey +05 


UUUNUnUn) UnUnUnonereny urververt 


ONO OOOO omo 
ee ee ed ee ee ed ee ee ee ee ee ee ee 


SRA TREMOR Id loud ddd see eT 


aad 


Jt 


Pe eet eet eee eet or ee et Set et et et 


ris 


5 a 
et 





-D2RKL-2 MACYLI 27/1008) 04-OCT-76 14:26 PAGE 62 
T-AUG-7 18:26 ESR13 
sHEADER FOR THAT CYLINOER. THE TYPEOUT LOOKS LIKE 
:SECe RCVO 
AR Seesas AR=BAD SEC 8 
Y. BSSS88=8A0 HEADER 
ZEXPCTD HOR=EXXKXXX Rye: Y SUR=2 
737? «015310 ESR13: JSR PC_ESRIS 
ei stB3i5 TYPE ef ;; TYPE ASCIZ STRING 
dd0464 BROS 23GET OVER THE ASCIZ 
jigss: ASCIZ / SURs/ 
ooso4é "oie i -(SP) 
=22 35 o00020 er! #20, RE ;SUR 0 OR 11? 
b0S2i6 i it 
104402 1$: rYPOC 
104401 902053 TYPE MSG12 
Sia7sé 901264 MOV RETRY? -( SP) 
005216 J (SP) 
153402 tYPOC 
00020 PC 
\SBTTL ESR20 
fa a RR BD RG I oF 
HE RS.’ 7 3 , ae conta He RS cBNTRINS Ever Pte D 
: R FOR THE CYLINDER. ‘INAOR’ *OUTAOR’ CONTAIN THE CYLINDER 
ADDRESSES BETWEEN WHICH THE IMPLIED SEEK WAS TRIED. 
004727 oO1S402 ESR20: J PC,ESR13 :G0 TYPE OUT SEC 8°S, BAD HORS 
004737 016244 JSR PC. ERR : I cy #°S BETWN WHICH SEEK 
104401 O1S474 TYPE S$ :; TYPE 12 STRING . 
os 4$ ;;GET OVER THE ASCIZ 
jigs: aAsScIz CYLA=/ 
01 O011b2 "MOV $REGC, -(SP) 360 CYL @ FROM WHERE 
1044 TYP ; SEEK 
.BYT 3 :T 2? Ivs 
.BYT ; Q’ 
104401 olssze TYPE &7$ :; TYPE ASCIZ STRING 
000404 os bes 2:GET OVER THE ASCIZ 
ije?s: ASCIZ / CYLBs/ 
013796 001164 "MOV $REG1,-(SP) ; TYPE 70 WHICH SEEK 


-SBTTL ESR2S 


—— oe eC 






a 























MBINDEC-11-DZ78KL MACY]1 27(1006) CT-76 14:26 PAGE 6&4 
BEE OSE sane TesdE eeeze 


c1ss44 010205 ESR2S: MOV _—s-R2 RS :SAVE RORES OF TERMINATOR 
R404 OLSS4— O12702 001266 MOV —s-@BUFR, Re sINITLZE. PTR TO Tea STORING 
9 “OV —«SBUFRI,R3 PTR T) ‘EXPCTD’ DATA 
SS HR ER a AUR SEN Rear a 
09 1 777 O20000 163350 1S: IT ggk13,a5uR pate TYPE OUT? 
15 156: Gprare . 4 tYES, EXIT 
11 835872 [64401 € :T ’ 
wie C1854 S012! SCRLF 
nis OLSS7E 163712 OOL4Os SUB PEUFO, (Ra) ;GET WORD # IN BUFR (0,1,2... 
S12 HES GRRE Rov (RB), -(SP)_ WHICH HBS BAD. NOTE YOU 
ayi8 ¥ :CAN HAVE T aerbaL ne 
nig iB E AGEING i 
Heo USO 104403 TYPOS 05 TYPE WORD ® THAT WAS BAD 
Bie Q 
15612 04a: TYPE 
Hey O18614 Ot21 BLNKS3 »2 BLANKS 
S45e 91 O12 MOV —s-(;RB0 +, = (SP) SGET EXPCTD DATA 
sus5 12618 SLes%6 TYPOC '20 TYPE I 
cS tee ie Pre 
330 Sites siete OV” (RH}¢,-(SP) :GET PECVD DATA (BAD) 
3333 Steps 104401 TYPES ‘ 
ne 615634 002110 BLNKS2 
1 poc400 MOY SGET THE DISK ADRES FROM 
Size Sieece S2E288 2: fw the) ilo als {BeO BATE AS 
Hy DIbEHS BLT 
cs es Gee BBS aN 
aio O15e 1371 BNE 
S445 015660 3s: swab «RO 
3 15662 O05 CORO 
O15e64 o014s0 6 ADRES, RO :BO CONTAINS THE DISK 
:BORES FROM WWICH THE (BAD) 
SHG 015670 010037 001170 MOY «RO, SREG3 SDATA WAS READ 
48 O1SE74 004737 44 JSR PC, BRKDA 560 ABOVE DISK ADRES 
as prtahocsll vec —— ere evee. SUR®. SECS 
3451 01 9: 74 “ REGS, -(SP) ; CYLe 
se as theags Ot WP 4 ‘fete 
170¢ Bie 3 :ONLY 3 DIGITS 
SHED ott a ie la 
Sse F1E712 852109 BLNKS3 


z 


averenaayes Pe 


“I 


eo- 


PyEpyRyony 
Boda datal vada’ 


ya a a 4 


cD 
a 


Dame R eR eI 


eae aa ae a ae ee 


DB GRR 


GeuMav Ron 


atoto ty 
ere ry 
qume-o 


we 


LL-DZRKL=D MACYL] 27(1006) O4-OCT-76 14:26 PAGE 65 
ll 3l-AuG-76 15:35 ESR2s SEG 008! 
015714 213746 001276 Moy SREGE,-(SP) +987 SUR 8 
SiECES +3 pe 1 | BScrr ONLY 
0157283 000 "BYTE 0 
} 104401 TYPE 
Siecee Abs TR Neer 
015730 013746 001200 MOV $REG7,-(SP) GET SECe 
Si5r3 104403 TYPOS °TY 
515736 ode \BYTE 2 °2 DIGITS 
615737 600 "BYTE 6 
015740 9057 TST (R2)¢ sINCREMNT PTR 
015742 20205 CMF R2,RS s TYPED OUT ALL BAD DATA 
QIsTa# 01306 a ;1F NOT LUP BAK 
SiESce MSG13 3° TRY @:° 
615752 613746 001254 MOV RETRY2,.-(SP) 3GET RETRY COUNT 
O1S75& 062716 900003 0 83, (SP! :FORM THE RETRY NO. 
015762 104403 TYPOS :TYPE IT OUT 
015764 a By i 
51575 "BYT 
DIS 0? 4S: RTS PC ;IF YES, RETURN 
:MESSAGE HANDLER 
: THE MESSAGE HANDLER IS USED FOR TYPING OUT MESSAGES 8 DATA 
“RELATED TO THE MESSAGE. IF SW13 IS SET, THE TYPEOUT IS 
: INHIBITED. THE CALL IS: 
s xXx 
:XXX IS THE MES NUMBER 8 PROVIDES AN INDEX TO THE 
:. RR R LIENS TABLE’ WHERE THAT MESAGE ITEM 
THE MESAGE ITEM CONTAINS 
: POINT R TO THe ASCII MESAGE 
: : SINTER TO THE DATA HEADER 
: T: POINTER TO THE DATA 
; 6 TERMINAT 
[IF °DT’ IS 0 THE DATA Is 19 BE PRINTED USING THE SUBROUTINE 
INDICATED IN PLACE OF THE INATOR 
1 020000 163142 MSGE: BIT 8SW13, 2SWR s INHIBIT TYPEOUT? 
te57e Det5; 1 TES. Ext? 
igsee O11 ig MOV (SP), SERRPC :G8T BORE OF *MESAGE’ CALL 
Biecie | Beetts sre a6, Sh tOREESAGE # (INDEX TO ITEM TABLED 
sad 40537 017362 JSR Be oatRAT IP 165 10 TERRTYP’ & TYPE OUT . 
ibe. 962716 900002 18: ADD #2, (SP) NST RETURN ADDRES 
16030 do0d00e2 RTI tEXIT 


ithe reseaue. 10 TVPED Sula Je cwecieD IF SET THE 
sTYPEQUT 15 INHIBITED & AN EXIT 1S, MADE. 
;THE CALL FOR THIS ROUTINE IS “TYPMSG™, AN ENCODED 
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020000 
000000 


016106 


obii76 


177760 






04-OCT-76 
ESReS 
Ee oR 
TY.MSG: SIT 

BNE 

MOV 
TYPE 
i: 00 

RTI 


Fl Te ROUT! 
i IN al 
eTSRG: 


ASL 
as 
S 
MOVE 
sGT NRG 
THIS ROUTINE 
;RKDR TO SREGO 
;ARE USED FOR 
GT4RG: MOV 
MOV 
MOV 
MOV 
RTS 


ifs "RUT Ne sarees 5 ih Ske F SONTENTS OF OF Te 
USES "eee MECE GE 


s INTO <BR VE_NO 
S THEM 


ave, JSR 
BRKDA: 


14:26 PAGE &6 


LOCATED IN THE 


Cil a TO BE TYPED IS 


Be re 
POINTER TO eee MESSAGE 
STRING 


T_ RETURN ae SKIP OVER 
a ON RETUR 


RACT ence Seka 
aRKDA 


PINDER BITs 
aad ADRES TO LO BYTE 


RENSFERS THE CONTENTS OF RK 
REG, $REG2, SREG3 
YPING OUT THERE CONTENTS AT 


- 4 


: RK 
sEXIT FROM THIS ROUTINE 





au 


tntototota totaal 
BRR PS 


areas 


ee 


tos cat iat tat id 
Wo NOU tore 


ey ey ee et et ed 


pest 


i" 
Hi 


eee ee 


¢ 


“DZRKL-D MACY11 27(1006) O4-0CT-76 14:26 PAGE 6&7 


31-AUG-76 15:35 ESReS SEG 0062 
£174 } ASR Ri 
1 1 A R} 
1 ASR R} 
6202 010102 MOV Ri,Re 
6204 OSe702 177776 8Ic 81/7775 Re 
19 6240 MOV R2,-(RO} 
1 Qh ASR RI 
14 O10] MOV R1.R2 
6216 O42702 177400 BIC #177400, Re 
BS MOV Re -(RO3 
d 177770 Ic @177770,R1 
$232 010140 MOV Ri, -(RO) 
$234 0 MOV (SP)+, Re 
bese 012601 = MOV (SP)4'RI 
6240 012600 MOV (SP)+'RO 
g242 RTS PC 
aoa .SBTTL ERR2 
: THIS SFQUTINE afls THE CYLINDER NUMBERS, BETHEEN WHICH (IMPLIED) SEEK 
eon) =] INDI ates eee Pepe ON EX ig coh TRIN CY 
ii ae ih Nive , SREGI Roa 8 TO WHICH Seek WAS DONE 
016244 013737 O01260 o01162 iproe ;GE 
blbese 904 37 pee nai sR Be aa a ee ne PROM IT 
pieces ee poate 1162 MOV at ADR ShEdo it at. ADRES 
lge7e 604 ié ISR PC, GCYL T CYL s Bey IT 
016276 005704 TST RY GOING WHICH WA 
016300 001407 BEG is. UTADR’ TO’ NAOR® BRANCH 
= 174 901162 MOV GO,-(SP) SEXCHANG CYL” To 
1 13737 OO01164 o01162 MOV $REG1 | SREGO :CORRECT 'TO’ & "FROM’ CYLS 
016214 012637 OO1164 MOV (SP)+; SREG1 
Ole3e0 000207 18: RTS Po satan 
.SBTYL ERRI 
ees SUBROUTINE FINDS OUT THE CYLINDER NOS. ae TMEEN WHICH THe SEEK 
NPE rte aces ase RE Ee TE Ete 
te § DEPOSITED J N SREGI. et IhOZCAYES WHICH DIRECTION THE 
Series i 
c HERS se EN On! as THe Pease Ma 
pipsce piCse7 pede — Pe’ BO co GET ¢ 
bias i “us” GOING IN OR OUT? 
ibs 1006 BNE s : OUT 
16236 013737 OOlle2 001164 MOV sre, $REG1 
016344 005037 O01lée CLR SREGO 


» GO? 


MAINDEC“11-DZRKL-D ss MACY11 27(1006) O4-OCT-76 14:26 PAGE 68 
OZRKLD.P1) 31-AUG-76 15:35 _ ERR) ae SEG OCe4 
016350 900207 : RTS PC 
0163Se 905037 001164 18: CLR $REG1 
016386 000207 RTS PC 
-SBTTL GCYL 


‘ >GCYL 
yy : THIS pour ite EXTRACTS ane YLINDER NO. FROM THE DISK ADDRESS 
; CONTAI hoy IN het HEN pe IT ae ste 


Bian nea 


ot : Si roe 00 ’ V gat GO FA wh cdesoties 
ipabe Bigs rtcekid Bie ESOS RO ne OUT DRV # BITS 8 
SUR, SEC BITS IF PRESENT 
guss7e gobecs ASR RO 

3640 016374 ASR RO sSHIFT CYL BITS RIGHT 
3641 616376 006200 ASR RO BY § 
Es: bie poeeoe aeRO 

44 OIE 10027 o001162 MOV RO, $REGO sSTORE CYL # IN $REGO 

4§ Bibsi9 Qieeoe MOV (SF +, RO ;POP_RO FROM STACK 

“6 i641 0; RTS p EXIT 

4 
zs .SBTTL ORV.RESET - DRIVE RESET ROUTINE 
3650 wae “SBTTL RESDON - WAIT FOR DRIVE RESET TO BE DONE 
3652 : THIS ROUT INE DOES A DRIVE RESET oN THE DRIVE WHOSE | RODRESS - Is IN 
se: SOO ERE IG NO t RRR (RWS AD RDY oF Tae IN CORT CERTA 
3638 ‘iF NORMAL ert Me EAT nE We RO § Y DOES NOT Tris, rare) teen. 
3657 . 
3558 gleHi4 005037 901174 leas DR.RST: cur SREGS on sINITIALIZE THE COUNT 
3660 164 63777 Spasis 163022 HOV oy Gry Vip ;DRIVE RESET, GO 
ee at 102 BR Ss: S.DO+4 

dls 001174 RES.DO: CLR 

264 pies oe777 000100 163000 18: grt #100, IRKDS sDID R/W/S RDY SET? 
z58 16455 O12746 177770 MOV $-10,-(SP) ; PUSH COUNT ON SP 
366 ig bOse16 INC (SB) :COUNT IT DOW 
ses Ole464 O05 2 TST (SP)+ ;POP UP $P 
#70 gig p052 001174 INC SREGS IF NOT WAIT 

71 O1s4 1364 BNE 1$ WAITED LUNG? 
3672 O16474 032777 O20000 162436 BIT #SW13, aSWR 
3673 Ol6502 001010 2g 
af. ot 

Re if 10 1 001732 TYPMSG ,MSG7 
3677 O16514 O11646 MOV {SP}. -(SP) 
3 Sites 166716 oo0ce suB #2, (SP) 

gO BIE abacas es: rR 
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me Hee BAGS 
gs SiBeSg ApatoE 


Ss 
i 


Oo 080 OOOO NOOOOVNOOOV0O00H 
OA hh 0 oe oo ee 


bEO4 
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qd 
es “ 
Se 


MACYi1 27( 1006) 
76 15:35 


Olttée22 


HO? 
14:26 PAGE & 


=0CT- 76 
- WAIT FOR DRIVE RESET TO BE DONE 


SOON 


= 4 
“ai 


3 CON. RESE 


-RESET ~ CONTROL RESET 20UTINE 
"ROY - WAIT 
THIS RO SING 'CNT.RESET’ WHI 
: TRAP* 


FOR CONTROL RE 
NSTRUCTION KI THe ef OHER byte NCODED 5 8 BB Se < 
++ TOOT INE. Ie ss ah FRoe RE I BNO EAT TS. F 
:T ante Roy" a we a nh mo sete 
IF. TONTRL ROY" 
‘Does *NOT 1 er TAIT oF CERTAIN TINE AN ERROR MESSAGE 
C=XXXXXX Riceeson000 
TINE IS CALLED THROUGH THE ’TRAP’ INSTRUCTION 


;USING THE LOWER BYTE AS AN INDEX TO THIS ROUTINE. 
;THE TRAP DECODER LOCATED AT *$TRAP’. 


ae, 
ithe 


RDY ROU IS CALLED BY USING CNT.ROY WHICH IS A TRAP 


ane ait HAs SHE RONR NCRERDY BIT TO SET ae WHEN IT 


PR Gut. iF WITHIN A cERTaEN TIME CNTRL RDY 


Sr AN ERROR IS REPORTED TING TIME IS 883 MS FOR 11/20 
sNOT TOR 11/45 WITH BIPOLAR ME 
EN.RST: MOV #1 Teele A A CONTROL RESET 
MOV $-400 T 
SR CN. RDOY+4 COKIP OVER CN.RDY 
CN.RDY: CLR $REG3 
is: TST ie e CTRL -ROY SET? 
sits 63 ited Lowes 
BNE & WAIT 
TYPMSG 
MSG10 
TYPE &5$ +1 TYPE ASCIZ STRING 
oR 4 ‘GET OVER THE ASCIZ 
iigss: -ASCIZ <«15><12>/PC=/ 
MOV (SP). -(SP) 
SUB a2 CSP) 
TYPOC :GO TYPE PC IN THE MAIN PROGRAM, 
WHERE ERROR ocr URRED 
TYPE 67S 13 TYPE asclg ST RING 
SR 6$ !:GET OVER THE ASCIZ 
iie7s: ASCIZ / RKCS=/ 
V ORKCS, -( SP) GET RKCS 
TYPOC :GO TYPE IT 
2 RTI 


Rk FROM THIS 
ROUTINE TQ THE MAIN 
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032777 
001047 
000416 


Nae 27( 1006) 


tte 162576 


001264 
020000 lbée46 


Boi 738 


o00cde 


ae 


000400 162176 


O40000 162166 


10? 


CBRE eat T Ee CBN EROS READY 


; PROGRAM 
~SBTTL TST.RWS - WAIT FOR R/W/S ROY 


;TST.RW 

;THIS ROUTINE WAITS FOR THE yt READY TO ET ae RETURNS 
310 MAIN PR ree - IT SETS ; IF IT DOES NOT SET 

WITHIN R_CERTAIN TIME AN ERROR IS REPORTED. 

;WAITING TIME APPROX. 1040 MS FOR 11/20. 208 MS FOR 11/45 


TETRUS: R TIMER 
18: T #100, ORKDS 
NE 2s 
INC TIMER 
8 1$ 
BI #81713, 3SWR 
BNE 2g 
TYPMSG ,MSGle 
TYPMSG = MSG 
mov  (tSP).-(SP) 
Sus 82, (SP) 
TYPOC 
es: RTI 
.SBTTL TEST ABORT ROUTINE 
: ABRT 
ASRT: 7 M 
MO sTefan, -(SP) 


PC 


;COMMON SUBROUTINES & HANDLERS 
-SBTTL SCOPE HANDLER ROUTINE 
; RERERRAEERERRRERERREREE REALE LALA EERE RARER READ EELS FEREEESEEE EEE 


ae Oat THE HE YEsy AUMGENCSTSINRY INTO Tie DISPLAY REG. BiSPeaY’?: :0)) 


0 DISPLAY<15 
ae Butoh HET TONG PROVIDED BY THIS ROUTINE ARE: 
;#SWIY LOOP ON TES 
/+03e1 LOOP ON ERROR 
:# SCOPE . ;;SCOPE=IOT 
SSCOPE: 
= ;;TEST FOR. CHANGE £ IN $0 T-SUR 
8] 8SWE, ISWR 0 SELECT 
BNE SOVER 


3A TEST? if ves. SKIP OVER 
:T ST, U LOOPING ON 
1S: BIT #81714, OSWR $sLOOP ON, PRESENT TEST? 


B SOVER YES If SW14=1 
jaeeeeSTAR OF CODE FOR THE XOR tESTERSeuas 


$xTS 6$ :;1F RUNNING ON THE “XOR” TESTER CHANGE 





JO? 


| MAINDEC-11-DZRKL-D MACY11 27(1006) O4-OCT-76 14:26 PAGE 71 
| DZRKLO.P11 = 31-AuG-76 15:35 SCOPE HANDLER ROUTINE Seq 0087 
:; THIS fie eons oF TO_A_"NOP" (NOP=24Q) 
O1G75E g137H oo00004 MOV OKERRVEC,-(SP) 5; SAVE OF THE ERROR VECTOR 
018762 012737 017002 co0004 MOV ass a BERRVEC FOR 
tel pierce 737 77060 TST 98.708 53 TIME one re XOR? 
798 (016774 01 MOV (SP )+ SO ERRVEC $3 THE ERROR VECTOR 
| 3799 017000 ood421 BR ssvLab :G0.10 T NEXT TES! 
3850 31200 = S$: CMP (SP)+, (SP)+ fiCleaR T STACK TER A TINE OUT 
1 Ol I 000004 MOV {SP +, aRERRVEC i $RESTORE HE ERROR VECTOR 
3802 917010 BR ON THE PRESENT TEST 
3803 017012 63::8eeeaEND OF CODE FOR THE oat YeSTenta 
3804 017012 105737 001103 23: TSTB = SERF HAS AN ERROR OCCURRED? 
3805 Qt poiste BEQ SSVL 
3806 01 001000 162112 BIT #21709, ISWR Boob of emo 
| 3807 017086 1404 BEQ 4 
3898 017030 013737 OO01i10 OO110& 7%: MOV SLPERR, SLPADR ttCET Coup ADDRESS TO LAST SCOPE 
| 10 Bi mB Speaa? O11 4 at MFG RO THE ERROR FLAG 
8 $ 
set pie ie 551 188 ein ao: NC aaa a Goh TEST nun oERe 
le 317050 11637 001106 Mov tgp). SL PEDR ; SCOPE LOOP OP RODRESS 
| 36+3 pie ee Bbe532 Bpt248 CLR SEScARE eer THe OF OO Ron PRROR ADORESS 
| 315 ol 4 112737 000001 001115 MOVE #1, SERMA Su ONE I ve ERROR ON NEXT TEST 
316 1 013777 001102 162042 SOVER: MOV STSTNM, aDISPLAY HDISPLAY Test 
| 3817 017100 613716 001106 MOV SLPADR; (SP) FUDGE RETURN RHORESs 
| #218 017104 900002 RTI t EINES PS 
i sese 3 ; LRSERRELEAE ALARA LALA RE LA LELEAEAAALAS RELA ALLA ELAEA LAL ELLA LER 
| 3932 
«(3833 .SBTTL ERROR HANDLER ROUTINE 
«Bees ;#SH1S=1 HALT ON ERROR 
3526 131 INHIBIT ERC TYPEOUTS 
= 3628° a = PEL ON ERROR 
3363 , 5 #5H gst on che ON ERROR TO PREVIOS ‘SCOPE’ STATEMENT 
| # 0 TO ERRTYP ON ERRO! 
| 3831 :#NOT FROM SYSMAC 
17106 104407 RROR: K FOR SOF THARE SWITCH REGISTER REQUEST 
er st abta 132307 001103 it FKeeY SERFLG ;SET THE OER FL 
3835 017114 001775 BEQ 7§ :DON’T LET THE FLAG GO TO ZERO 
ex Oi7iié 013777 991102 162016 MOV STSTNM, DISPLAY 
| 1716s 002 162006 BIT #SW10, ISWR 
«3638 O17 001402 BEG 1$ 
2839 017134 104401 o01206 YPE SBELL 
3640 017140 005237 OOlile 1$: INC $ERTTL 
E41 017144 O11637 OO1116 MOV (SP), SERRPC 
2843 017150 932777 QO0004 161762 BIT 8SW2, ISWR space DRIVE? 
8 eats poss 001112 o00006 aa RTTL, #6 ; MORE Tan z Eraors ON THIS DRIVE? 
eH 17166 191040 BHI 6$ :YES, DROP THE DRIVE 
3648 017170 162737 OO0002 O01116 SS: SUB #2, SERRPC 
2645 Bate 117737, 161714 Bettie MOVB Sgtheee S1Tene 








KO? 


MAINDEC-11-DZ2RKL-D MACYLL 27(1008) O4-OCT-76 14:26 PAGE 72 
DZRKLD.P11  31-AUG-76 15:35 ERROR HANBLER ROUTINE SEQ o08e 
3850 17203 932777 920000 161726 BIT 8SW13, aSWR 
¢ 
ze 172149 ae 017362 a DeERRTYP 
17220 104401 001213 TYPE StRLF 
3854 017224 005777 161710 23: TST dSWR 
3855 ape BP 3$ 
iee8 15536 1 OREUR sCHECK FOR SOFTWARE SWITCH REGISTER REQUEST 
3658 017236 032777 O10000 161674 3S: BIT #SW12, ISWR 
s8e Bibsue Bia ABB 
17 1 001106 MOV $LPADR, (SP) 
3861 017; 001000 161660 BIT #SWO9, aSWR 
3862 017260 601402 BEQ 
3663 Ol7262 013716 001110 MOV SLPERR, (SP) 
3564 017266 4S: RTI 
3Ee 17270 O137G O01eR6 eS: Noy -DRVPTR,~(SP),;GET POINTER TO DRIVE 
See $i550q ASES4E 35 Bye 555 icp SCLEAR THE DRIVE PRESENT FLAG 
3869 017304 104401 64 TYPE mSGI4 
3870 017310 013746 001230 MOY ORIVAD, -(SP) 
3871 017314 005241 CLC :GET THE DRIVE # 
87 017316 OO6116 ROL (SP) 
| 017320 OO06116 ROL (SP) 
3674 g1732e 906116 ROL (SP) 
| 3675 017304 116 ROL (SP) 
| Srp pieaee MGT 017336 TYPE’ ESS Se acety STRING 
Sere BPs BR bug SIGET OVER THE ASCIZ 
3673 ; jess: -ASCIZ / DROPPED/ 
| 3661 017 105337 001224 DECB ORIVS sDECRMNT # OF DRIVS PRESENT 
| 3eg2 017354 O22626 CMP (SP)+, (SP)+ :RESTORE STACK 
| 363 017356 000137 o1SiS6 IMP BTEOP EXIT 
| 3685 017 ERRTYP: 
3686 017 104401 001213 TYPE SCRLF "CARRIAGE RETURN” 8 LINE FEED” 
| Seeq StoS58 paeoce Me RO, ~(SP) i BTSEUB-THE ITEM INDEX 
366 Bt58 oesoee 001114 BISB adsSITEMB,RO ‘ 
20 017376 001011 BNE 1$ ;IF ITEM NUMBER IS ZERO, JUST 
2% :TYPE THE PC OF THE ERROR 
3633 017400 O13746 OO111E MOV SERRPC, -(SP) save SERRPC FOR TYPEOUT 
| 3995 017404 104402 TYPOC GO TYPE--OCTAL ASCII(ALL DIGITS) 
«3296 O1740— 10440) TYPE 
| 3997 17410 001733 MSG? 
| ese 017412 013746 collie MOV SERRPC, -(SP) 
 «‘3e¢9 17416 1p840e TYPOC 
(3800 174 oo04 BR bs ;GET OUT 
1 Oi7422 005300 18: DEC R !ADJUST THE INDEX SO THAT IT WILL 
017424 90600 ASL RO : WORK FOR THE ERROR TABLE 
| pi 7aee 006 ASL RO 
| 360% 0174 300 ast séRO 
| 3905 017432 700 ode2lz2 add #SERRTB, RO ;FORM TABLE POINTER 


= a 


3 


f 
MAINDEC=11-D2RKL-D MACYL1 27(1006) 04-OCT-76 14:26 PAGE 73 
DZRKLD.P11  31-AUG-76 15:35 ERROR HANDLER ROUTINE SEG cogs 
3308 17496 912037 OL7446 MOV (RO)+,2$ sPICKUP “ERROR MESSAGE” POINTER 
1744 14 BEG 3 iSKIP TYPEQUT IF NOT POINTER 
3908 ois 104401 “i TYPE " s TYPE ROR fe SSAGE” pe 
3378 peace reernt 001213 TYPE SCRLF Baty Abe RETR UE NDER” OINTER 
3911 017454 0320777 OO4000 i614S& 3S: BIT &Si11, aSWR MP OUT ALL RK REGISTERS 
#316 Bi oHbe bo1o4e ) ONE BRANCH 
13 17ugs b1e037 017474 HOV (RO)+,48 nom, eM HEADER” POINTER 
$32 ated 104401 YPE ie THE of DATA HEADER” 
#316 Tate 000006 4g: HOR 0 aba! DATA HERDER" TUPOENTER GOES HERE 
as 
$36 Bi5¢58 42784 BGASAE AcDe RS RO SER EGTHTER 10" TERMINATOR 
$313 017508 005719 TST rR) i ma, TERMINATOR 0” 
2 17510 001017 NE 3g RNCH 
1 O175i2 162 oooo02 SUB #2,RO 0. REPOINT TO “DATA” 
2366 017516 011000 S$: MOV (RO) ,RO ftee Bt Thee Bai 
3324 017520 001004 BNE ? 
3385 ot o1e600 &$: MOV (5P)+.RO OCT ORE Roe 
1 104401 001213 TYPE SCRLF !"CARRIAGE RETURN” 8 LINE FEED” 
3927 017530 O00207 RTS PC : RETURN 
3958 017538 7S: 
3329 01 013046 MOV @(RO)+,-(SP)  ;SAVE 3(RO)+ FOR TYPEOUT 
3930 017534 04402 TYPOC :GO TYPE--OCTAL ASCIT(ALL DIGITS) 
3931 017536 605710 TST (RO) !IS THERE ANOTHER NUMBER? 
3932 017540 001770 BEG bs :BR IF NO 
3933 OI 75He 104401 002110 TYPE BLNKS2 
3934 017546 000771 BR 
3935 017550 004 poo0000 Q¢: ISR PC, a(RO) :GO TO THE SPECIAL ERR OR 
3936 :DATA HANDLING SUSROUTINE 
3037 :NOTE THAT THIS ROUTINE IS 
3938 :THE ONE INDICATED IN THE 
3939 ‘LAST WORD OF AN ERRO 
3940 :ITEM IN THE ERROR TABLE 
3941 (STARTING AT SERRTB) 
soe 17554 104401 T 
943 017556 001733 MSG 
$343 17560 013746 oo11i€ MOV SERRPC, - (SP) 
3945 017564 104402 TYPOC 
3946 017566 000755 BR 6S ;GO BACK, TO THE EXIT POINT 
3347 :FOR ’ERRTYP 
3948 017570 004737 017576 10$: JSR PC, DMPREG 
3950 017574 600752 BR b$ 
395] 
3952 
3963 
3954 ; DMPREG 
335° :DUMPS OUT ALL RK REGISTERS WHEN SW 11 IS SET 
3957 01757¢ DMPREG: 
17576 104401 017604 TYPE 65$ 11 TYPE ofisciz,s STRING 
€9 Oi760e Oo00441 BR 4 Sc1z 
2960 --65$: .ASCIZ <15><l2>” PC Boe RKER RKCS RKWC RKBA RKDA  RKDB< 


3%1 017706 4s: 


Se lem 
017706 
365 017712 
4 122 4 
§ 0177 
177 
3967 Rae 7eR 
ee 
70 017736 
71 017742 
7 17744 
7 17746 
74 
3975 
2976 
3377 
3978 
3379 
3980 
3981 
se 
3984 
3385 
3986 
3987 
s25 
3990 
3331 017750 
saa8 017750 
017752 
3994 017754 
3995 017756 
3996 017760 
3397 Rie es 
oe 
ant 017774 
BL es 
4003 Oe0006 
4004 1 
4005 92001 
4006 
4007 O200e4 
4008 Oe00e6 
4009 020030 
4010 Qe003e 
4011 020034 
“Ole 020036 
mia Asoo 
3 Bes 
4016 Oed04 
4017 Oe00S0 
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001116 


020200 
000020 
000055 


020164 
000040 
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ERROR HANOLER ROUTINE 


1§: 


MOV SERRPC, -(SP) 
TYPE’ BLINK 

mo RBCS 

MOV #RKDS, RO 
MOV 3(RO)+, -(SP) 
Typoc 

TYP NKS2 

CMP BB SRD 
BLE 

MOV (SP) +, RO 
RTS p 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


; ATHIS 
*SIGNE 


IS POSITIVE OR NEGATIVE 


peovetsougussegecnsensenneneseststessneesususcnsnnscssesestases 
Tine IS Rath TO eee nro A . git 
4 CI netTs YPE 1 


INARY NUMBER TO A S- pict! 
DEPENDING ON WHETHER THE 
A SPACE OR A MINUS SIGN WILL BE TYPED 


RUPEE THE 2 OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


; *REPLACED WITH 
ALL: 


*C 
te MOV NUM, -(SP) 
;# TYPDS 
STYPDS: 
MOV RO,-(SP) 
MOV R1'-(5P) 
MOV R2'-(SP) 
MOY R3,-(5P) 
MOV R5'-(SP) 
MOV #20200, -(SP) 
MOV 20(SP), RS 
BPL I 
NEG c 
MOVB = #’=, LSP) 
1: CLR 0 
MOV #$DBLK,R3 
MOVE 8° ,(R3)+ 
2S: CLR R2 
MOV SOTBL(RO).R1 
2S: SUB R1,RS 
BLT 4g 
INC R2 
BR 3$ 
4S: ADD R1,RS 
TST Re 
BNE c$ 
TSTB ss SP) 
BMI 73 
S$: Asie 3=s«¢ SP) 
Bcc 6$ 


INARY NUMBER ON THE STACK 


ieD. THE 
ROUTINE 


;G0 TOT 


;;PUSH RO ON 
3 PUSH Ri ze 


TACK 
TACK 


Hy rr INPUT J eas 
ET NA 


THE 
Eon bet BCD Oter7 
INCREASE THE BCD DIGIT BY 1 


;ADD BACK THE CONSTANT 
i CHECK If Bcd OiGiT=0 


ee DOING LEADING 0°S? 


+ IBR IF NO 
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aBt8 Bethe AAS5G3 BERRA 07777” 
4020 Oe0064 OS270e 000040 
: M658 


020074 


aR 


BSSNSRS NESS 


fo 
oO 
ORZRSRKLV 


RNSNRNS 
TRSREOS 


RRS 
PRE? 


fihaturofurorurory 
56 


MACY11 27(1006) 
15:38 


177777 =177776 


020164 
ooocde 000004 


i *#CALL: 
3#1) USING A TRAP INSTRUCTION 
: TYPE , MESADR 


NO? 


O4-OCT-76 14:26 


PAGE 75 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


Te a LIRA THe ach Biéir 


ove setae SMe ATS CHARGETER IN oT fa Repg SebuT BuetER 
Wey Ea}e tt UST His chee ff Ke 
CMP RO, #10 CHECK THE TABLE INDEX 
LT 136 9 09 THe NEXT DIGIT 
GT $360 
MOV RS, R2 THE L 
eR 6 +66 CHARGE TO ASCII 
8S: STB (SP)+ WS THE USD THE FIRST NON-ZERO’ 
MOVB  -i(SP),-2(R3)  $:YES--SET THE SIGN FOR TYPING 
CLRB ss (RB) ites THE TERMINATOR 
MOV (SP)+,RS ::POP STACK INTO RS 
MOV (5P)+'R3 ::POP STACK INTO R3 
MOV (SP)+'Re ::POP STACK INT Re 
MOV (SP)+/RI ::POP STACK INTO RI 
MOV (5P)+’RO }3POP STACK INTO RO 
TYPE SDBLK TYPE THE NUMBER 
MOV 2 (SP) ,4(SP) :ADJUST THE STACK 
MOV (SF ,+; (SP) 
RTI ;;RETURN TO USER 
$OTBL: 10000. 
1000. 
100. 
10 


$DBLK: .BLKW 4 


-S8STTL TYPE ROUTINE 


pAASTINE TO TYPE Aci? MESSAGE MESCAGE MUST TERMINATE WITH @ O a8 
 SROUTI NE TO TYPE A Z MESSAGE. MESSAGE MUST TERMINATE WITH 
see ROUTINE WILL L INSERT 8 NUMBER OF NULL CHARACTERS FT R A quite ‘FeEp 
TAINS THE CHARACTER 19 BE USED A ILLER CHARACTER. 
i NOTES: eritts CONTAINS THE NUMBER OF FILLER SO ARRCTERS REQUIRED. 
NOTES: SFILLC CONTAINS THE SUSE TER TO FILL AFTER. 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


: TYPE 
+ # MESADR 


STYPE: STB STPFLG 318 THERE A TERMINAL” 
HALT tTHALT MERE IF NO TERMINAL 
ge 38 rFLEAVE. 
1s Mov = - RO, - (SP) :SAVE R 
Mov Ge SP), RO 3 PORES oF ASCIZ STRING 
28: MOvB = (RO) +, “(SP ) D ONTO STACK 
me YS NT The TERMINATOR 
$1 Pit :TF Eatin OR POP IT OFF THE STACK 


60S: MOV (SP )+, RO REST 





BBS VRRP B 


SEES EEA ELE ELALAEALA SLA LELESL ELAS SE 
0 O00 +O +o 0 oOo +O O21 o-+ OO + 0+ +0 +o +O © + +O Oo & + Oo He 
2-0 20-40 +00 +0 +08 + 
APCD SOCTIELT Cte 


UN Poe 


tw 


ao 


“DZRKL =D MACY] 2711006) (04-OCT-76 14:26 PAGE 7E 
15:36 TYPE ROUTINE 


005902 3$: ROO 82, (SP) 













i HOTUST RETURN PC 





RT? } 
¥ 000021 4g: sire eH, (SP) SIBRANCH IF <HT) 
000200 =MPB BERLE, (SP :;BRANCH IF NOT <CRLF) 
sees et (SP )¢ POP cORD «LF EQUIV 
‘TYPE @ CR AND LF 
SCRLF 
020410 SCRE CHARCNT T : CLEAR CHARACTER COUNT 
262 S$ an PC STYPEC ie ee This” SARAC T 
ree BSiise b$: cMPB tLuc, (SP)+ up 1} Syne FoR FILLER CHARS. 7 
ay BNE NO GO ser NE 
be0e74 001:84 MOV NULL, - (SP) siG6T 8 wit R R CHARS. NEEDED 
000001 7: 8 j (SP) : DOE 
eae an 8 BALE om 
520306 920344 


JSR gehen 


;HORIZONTAL TAB PROCESSOR 


159 ger Sun as A COUNT 


a 
or 
: 


Geoaes AAGrS FRRS.S HGP ac atteec = FipEA crac 
620330 132737 000007 020410 BITB BPSCHARCNT = BRANCH IF "ROT AT 
BSG Soe s (SPs Hie P SPACE OFF aprack 
pena 160600 STYPEC: Ts7B  SS7ES. ;;WAIT UNTIL PRINTER IS READY 
ospse6 booeis 86008 chee acnctEh) ELIS CaeeecreR A camlace RETURN 
posers 020410 eRe Scent cre NBHARACTER COUNT 
o376 cocci occod2 18: CMB ALE (SP Ment aaxtnnis es A LINE FEED” 
pep B (PCs STESONT THE CHAR 
i SCHARCNT: WORD 9 ELEMARECTER COUNT STORAGE 
Sed4iz STYPEX: RIS PC 





~SBYTL INTEGER MULTIPLY ROUTINE 


SSFSEPSESSSSSSSSRELSALSLSSLAASEFSASLAAFFLSRERLTEPHASRALRAFLSLELSD 
ALL 


f MOV PLER, -( SP) 

. nut Te Seite -(SP) 

‘ TURN CRSA IS ON THE STACK 
¢ 

oa 


oe oe me EE EL EL TTT LTT 


“OZRKL-0 MACYL1 27(1006) O4-0CT-76 14:26 PAGE 77 


ee 


BS 


AEGMHEBLBVRRZOWELS  ¢ 
RY 


LELEALELAEAA LEAL LES 
0 = 0= = 08 = 0 O88 OOO 8 Ob bh = Oo Oe 
~~ 
LiuUeeerereneetag: 


"i 


fo 
in 
? 














3I-AuG-7E 15:38 INTEGER MULTIPLY ROUTINE SEG 0093 


: L 
;* +2 mse°S 


SMULT 
10046 MOV RO,-(SP) :;PUSH RO ON STACK 
10146 MOV Ri -(5P) !:PUSH RI ON STACK 
MOV Re’ =( SP) : PUSH Re ON STACK 
CLR -($P) =:CLEAR THE SIGN KEY 
000032 fe 1g SP), Rd tikes ] Mog 
GN KEY 


a POSTIVE 


~ 


Pe oe 


| MAKE 
000014 1$: MOV =. 14 SP), RE S1GET cone 


; _ “. aS ae POSTIVE 
000621 2s: MOV Hy . 7 (SP) ay “THE bP 4. 





CLR a PLY LOOP 
38: BCC 4 ie DON’T ADD IF MULTIPLICAND = 0 
48: aOR aS" POSITION THE PARITIAL PRODUCT AND 
ROR RI is THE MUL MUL TIP : 
1g C (SP) HAS ALL BITS OF THE MULTIPLICAND BEEN DONE? 
pose ie 7304. (sp ti o: BE NEGATIVE 
BE i¢, ) 33 TIVE? 
1308 BEQ oi He 15 EXIT TE NO 
ioe NEG RO ::YES--S0 MAKE IT $0 
40] 6 pf! . 
cs: 7ST (SP) igh AR SIGN INFO. TACK 
snore poet v R site ng i BRobuey on el STACK (mMSB’S) 
10166 00001 R1'16(5P) 
12602 MOV (SP )+,R2 tib58" erAck NTO R2 
12601 MOY (5P)+°RI ::POP STACK INTO Ri 
ey HM hai 33POP STACK INTO 


-SBYTL TTY INPUT ROUTINE 
5 SRPRERERASESREESEERERESESESAAESERERESLAAAEELALES REELS ATELS ETE 


a erage = 





KQOUT: *. TPUT POINTER 
TKOSAT: (BLKB | {TTY KEYBOARD QUEUE 
TKGEND=. 
- EVEN 
;#7K INITIALIZE . 


2 #TK ROUTINE 
s#THIS ROUTINE WiLL Nira 12¢ THE TTY KEYBOARD INPUT UE 
; ERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 





CALL: 
ie JSR PC STKINT 
RETURN 


ee eee ee ee + 


MAINDEC$11-DZRKL-O meu! 27( 1006) 


Tike PAGE 78 
of Pll Si-AUG-76 1 


hy heute Rout SES 0094 


STKINT: CLR ROUE THE START INe coReSS OF THE 





| 
| t 
- 3 
at” + QUE AT 16 INPUT § OUTP 1. is INTERS, 
| 4 MOV BSrKSR eet «vec *: INITIALIZE THE KEYBOARD VECTOR 
4 MOV $20 datkve :; "BR" LEVEL 4 
i ~ ay 0 ;; CLEAR roe 
| 4] MOV 8100, aSTKS :;ENABLE TTY KEYBOARD INTERRUPT 
| 4 RTS pt ::RETURN TO CALLER 
i ow pa nate E THE TTY KEYBOA ERRUPT 
| al g1 READING Toe Hale EY FROM THE INPUT be AND PUTTING 
| 4 
/ 
Ye 774 160 a: MOVE  a$TKB,-(SP) ;;PICKUP THE CHARACTER 
| eo] ests SaaS Te io? BIC etC17?, (SP) ict ete THE JUNK 
Ee Bes HE sR gt ate 
| 4805 bee737 000176 O01140 CMe SSWREG, SWR 2315 SOFT-SWR SELECTED”? 
2 020632 001500 BE 6$ ::G0 TO SWR CHANGE 
og 020634 28: 
| 4208 020634 022737 o00001 oc20s26 OMe 81, STKCNT :31S THE QUEUE FULL? 
Seta Se5ees S5495) colz06 FYPE BELL Hy Tye Thr L 
mie S20&50 Sis 7ze ny tSP y+ : CLEAN CHARAC HARACTER GFF OF STACK 
413 Gepess else? ooo0e3 a HE "AT,A CONTROLS? 
4ei5 16025 , LR ODS TKS DT etry. PR INTERRUPTS 
ak re a ort 
Seis Deoere TTI shat. Whe Se She ian HOOP UNTIL [is ine 
3542 Gsorae Aazrie iScese eee Sect E tap) + OEE Set aecrr 
Heel oe O22627 000021 cH {Sb)+, bel 315 iT A cONTROL-@? 
1e8: is me 000100 160222 HOV #100, aSTKS Haat TTY KEYBOARD INTERRUPTS 
4eeS 328: tne STKCNT $s COUNT THIS CHARACTER 
West 0207 1627 O00140 Cup (SP), #140 ::1S IT UPPER 
- peor 0024 BLT 4g 1 H IF YES 
cee 307% ] 000175 cp (gP), 8175 $3 17A SPECIAL CHAR? 
4230 0207445 04 i o0040 BIC ::MAKE IT R CASE 
4231 pen7ee 118 4 4§: "MOVE (SP)+. aSTKOIN ;;AND PUT Que 
42 37 b208 30 INC KQI i Upbate THE POINTER 
4 scares 9e2 020€30 020535 cH TKQIN, #STKQEND ::60 OF a HE 
4238 91 020534 020530 MOV 8S TKQSRT, STKOIN ti Beoet THE POINTER 
Pe 620776 : SS: RTI : ;RETURN 
ise ee TITRA Oat tie. 
4 SWITCH REGISTER CHANGE fou 
4246 :#R0 OUTINE IS ENTERED FROM 


THE TRAP HANDLE WILL 
4241 S#SERVICE THE TEST FOR CHANGE IN ROOF TuARE Barren RECTSTER TRAP 





ee ea ee Ce 
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DZRKLO.P11 31-AUG-76 18:35 TTY INPUT ROUTINE SEG 0095 
4242 *#CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
4243 Ei rate 000176 001140 $CKSWR: CMP G, SWP - S THE SOFT -SWR SELECTED 
| - 1010 196777 160130 sTB Ie :i15 A CHAR WAITING? 
- bei0l4 10010 QPL sie NOT, EXIT 
- 1016 11° 160124 MOVE 98 7KB,-(SP) YES 
seve 02102 ber 18 1PPe0 Bic #1C17?, (SP) MEME 17 2-811 ASCII 
352 RE {RES j ENE SgP ide A NOT egy eth THE TTY QUEUE 
435: 3 AND “ext 
- : prenten te PaceeD TO Tate POINT FROM ELTIHER THE TTY INTERRUPT 
| ‘ = : ECONTR L Is PRSSED TO THIS POINT FROM EITHER THE e ITY INTERRUPT BT SERVICE. oa 
- sEQUTINE Of 6 BEI f Tree ave he. sort see pant TcH REGISTER SE Eek SELECTED. 
| 4257 021034 123727 001134 000001 ix CMPE 
4258 O21042 74 Beg aa Oe 
4259 21044 ST or Hts CONTROL-G grr STACK 
| S5e; eines Soeose | PEDREE we otto SYSAGLE TTY KEYBOBRD INTERRUPTS 
ss: O31056 112737 600001 001135 MOVE #1, SINTAG OTR Ty teygoe NOICATOR 
| 4364 921064 4 T CNTLG - T (1G) 
«See ABIBSS iRwGR REtEdE scrsur: TYPE | 'SeeuR ihe THE AEA 1 CONTENTS 
| 4 021074 013746 O00176 MOV SWREG, -(SP) SAVE SUREG FOR T YEEOUT 
| 4367 seti20 1D44ge TYP $189 onthe roe ret ASCII(ALL DIGITS) 
aee5 te eng ist 198 ave a LEAR CO — 
4270 Geilig Boe : ¢LR -(5P) ie et 
| #e7l Oslll2 105 160026 78: TSTB) 2s ASTKS 
1278 Se1116 100375 BP, § iit BROT ‘ot "AGAIN 
| we74 921120 117746 160022 QSTKB, -(SP) s;PICK UP CHAR 
| 4673 Delle4 O42716 177600 BIC atCl7?, (SP) !:MAKE IT 7-BIT ASCII 
4 
i538 ll 1627 00025 3g: CMP (SP), 825 :;IS IT A CONTROL-U? 
| 4680 Gell 1 BNE : ::BRANCH IF NOT 
Woes OSiia8 bes7OR DOORBE 20s: AOD beer’ ee tur 
| 4383 O3]146 aed — 13$ 3LET'’S TRY 4 
| SSEe 
| 4286 O21150 021627 oODOIS 10S: CMP (SP), 15 $315 17 A <CRD? 
seee Settee BOSTEe o000D4 Poe CASS TON TT THE FIRST CHAR? 
- eet) Dob Q lis NES iF yee 
4290 211 j C2 157746 MOV 2(SP) ,aSWR : SAVE NE 
4291 pst 118: we. #6, SP ;; CLEAR 
42S¢ 021176 104401 00121 i4g: T stRLF 36 HO <CR> AND < 
ise 36120 1 1138 000001 NPs a HR Try Kao. INTERRUPTS? 
4ESE sei 000100 187724 MOV , aSTKS EPA NnBLE TTY KBD INTERRUPTS 
| 2Se ] 15$: RTI A URN 
4237 Delze2 004737 o20344 168: JSR PC, STYPEC :;ECHO CHAR 


a 
“wt 


bre. 
a 


forufufurufofuro fururufurorore 


fo FOFUTOFOFOFUFOFOIOIOFGFUFOFOTD 


0 +0 +6 +0 +6 +6 +6 +6-+6-- 0 — 0+ b+ 0-- oo +8 + 


fofolurororore 


0+ 0 <0 0+ b+ = &~< p+ & = B= B+ + Bo 


0-0 +0 +0 +0 + -6 + 


eke 


Ww 
- 
cor 


HK SOISS 


vo 


SINERER Tae ee 


SRERSS ERS 
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001212 


ava 


021326 
O20S2é 
bas 
020$32 


020534 


020832 


FO8 
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TTY INPUT ROLTINE 

CMP (SP), #60 sCHAR « 0? 

BLT 183 | BRANCH i YES 

cr (SP), #67 t CHAR > 

e 850, (SP) i ETRIP-OFF 

+ , 

#45 e oP) bite fe “FE ES Phe CHAR 

BEG t BANCH I IF YES 

A ; ie :3NO, SHIFT PRESENT 

A (SP) :: "CHAR OVER E 

ASL (SP) 3; __ROOM FOR NEW ONE 
178: NC 2(SP) ;;KEEP COUNT OF C 

Is -2(SP), (SP) ::SET IN NEW CHAR 

3960 THE NEXT ONE 

188: YPE as YPE ?<CR><LF> 

R ::SIMULATE CONTROL-U 
.DSABL LSB 

+ SRSSSESSSSSASESSSSLSLESSSSESSSESSSLESELAARALFLSSLAAESSSALAELAEFE 

:THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
te 3: HARACTER FROM THE QUEUE 


;GET 
tiara ER IS ON THE STACK 


te RETURN HERE 
t+ ttWITH PARITY BIT STRIPPED OFF 


SRDCHR: MOV (SP), -(SP) 3 3PU THE PC AND 

MOV 4(SP5 2(SP) ::T 

CLR 4(5P) +367 READY FOR @ CHARACTER 

CLR -(SP) 7 NE Be ON STACK 

y #64$,-(SP) iBUt W PC on STACK 

oe RTI POP NEW PC AND PS 
ior. T 7 $TKCNT ;;WAIT ON A CHARACTER 

DEC KCNT tiGET ONE. CHARAC THE COUNTER 

MOVE STKGOUT, S4(SP) ACTER 

INC ; }UPDATE THE POINTER 

MP TKQOUT, WSTKQEND ; DIT OF THE END? 

my s$TKQSRT, sTKQoUT’: Fs THE POINTER 

jsasnseeadensnsnacenesssenneeseliacesseseaesenneresensersnsesecs 

cATHTS: ROUTINE WILL INPUT A STRING FROM THE T 
te OROLIN s;INPUT_A STRING FROM THE TTY 
:# RETURN HERE ;ADORESS OF FIRST CHARACTER WILL BE ON THE STACK 
3% : TERMINATOR WILL BE A BYTE OF ALL O°S 
SRDLIN: MOV , > hall 33 I 

CUR + RYER THE RUBOUT KEY 
1: MOV inte R3 $8 

: MP asrty N48. ,R3 +s BUFFE FULL? 
Bos 33 YE 
HR ::GO READ CHARACTER FROM THE TTY 
MOVB  (SP)+, (R3) !;GET CHARACTER 


SES 00% 
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FEES ROREN cRERB TORRE FoR SOS 


122713 


riatereis 
SeSek 


oww~ 
~ 


~) 
~ 
o 


ee 


oo 
~ 
~ 

Fis 

—~) 


& 


Sry 
nae 


2 


revedieis 
O-OOrer 
= I 


= 


re 
toe 


1 


Oo 


SS 
— 
o 
wr 


TTe 


MACYLL 27(1006) 
31-AUG-76 15:35 


000177 


Oz1624 


04-OCT-76 


14:26 PAGE 81 


TTY INPUT ROUTINE 


10S: 


6$: 


S$: 


4§: 
3$: 


TTYIN: . 
CNTLU: 


ve 


SMNEW: 


CMPB 


-AS 
“AB 
ASC! 
-ASCIZ 


8177, (R3) 
S$ 
(SP) 
6$ 
a’\,9$ 
9§ - 
b-1, (SP) 
e , @STTYIN 
(R3),9$ 
$ 


P) 
7 
8°\,9$ 
3 


tee) 
#25, (R3) 


SCNTLU 
gee, (R3) 


74U/615> «12> 
7#G7«15><l2> 
(15)><12>/SWR = 


/ NEW s 7 


SEG 0097 
vis 11 A RUBOUT 
ie te tha THE FIRST RUGOUT? 

{TYPE A BACK SLASH 
:1SET THE RUBOUT KEY 

CKUP BY ONE 
:iSTACK EMPTY? 
eT 16 TYPEOUT THE DELETED CHAR. 


; 3360 Pee ANOTHER CHAR. 
; 3; RUBOUT KEY SET? 


I 
:3 TYPE A BACK SLASH 


;;CLEAR THE RUBOUT KEY 
its eee Ter A CTRL U? 


LTE THE inet Sra1Nc 
ee ete ANOTHER CHACTER 
3 CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 

+ OOP T ak tot 


T RETURN 
iE TRE TURN (THE 15) 


ae RRuBOUT KEY FROM THE STACK 


; RESTORE 
jaOUST THE STACK AND PUT BR ORE SS OF THE 


FIRST ASCII CHARACTER ON 
STORAGE FOR ASCII CHAR. TO TYPE 
pay VE § yprTes FOR TTY INPUT 
BECONT ROL we 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


; PEPRARSEREAEREREELESSERR EER AEREERAAEEERERE RASTER ERAS EREEREREE EE 
t ATHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 





-———- 


MAINDEC-11-D2RKL-D MACY11 27(1006) pe re 14:26 PAGE S82 
READ AN OCT 


DZRKLD. P11 31-AUG-7E 15:35 Ai NUMBER FROM THE TTY SEG 0096 
4410 : #CHANGE IT TO BINARY. 
Hed 3 
44] 1% CT : READ AN NUMBER 
| 44] 1+ 2 URN HERE He ORDE “Ofte ARE ON TOP OF {He STACK 
a :# HIGH ORDER BITS ARE IN $HIOC 
44] 21676 lies SRDOCT: MOV (SP). -(SP) TOPE SE SPACE FOR THE 
44) 1674 O16 000004 00002 4(SP} 21SP) 
4418 921702 6100 v BO, -(3E ne a 
44h} 1768 i V Ri) -(5P) ; PUSH sel Re oh Tack 
0 eo ine l 1s ROLIN gieck READ A 
| we psizig l i i MOV (SP)+,R0 7 AoURESS ie ig CHARACTER 
4423 21714 ] CLR Ri + can DATA 
4424 ei7is o05002 CLR Re 
| ase bsisse Abia esse ye (SP) to ce Gur 
4457 S51556 Boe ei Bee Rl $:#2 
4458 O21726 102 ROL Re 
ae hs ize Pate. oae Af 7784 
4431 61536 ae a A Rl 33 %8 
mi ate passte 177770 Bre ies (SP) RIP THE ASCII JUNK 
| My estas Sescat ae (SP)$, Ri Ho tN tre Beart 
| ma toes Soesee 3$ ae "apy. oo RMINATOR FROM STACK 
«8 BEL5EE BPBTEE oconre vy RI, 12¢SP) Hes THE RESULT 
| 4438 021756 910637 021772 MOV Re: $HIOCT 
, 4439 021762 Ole6o2 MOV (SP)+,Re ;;POP STACK INTO Re 
4440 021764 01260 MOV (5P)+/R1 : POP STACK NTO R1 
| eT 321766 Hoy (5P)+°RO $3POP STACK INTO RO 
| wHMe OST RTI 
4443 021772 O00000 SHIOCT: .WORD 0 HIGH ORDER BITS GO HERE 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
Dap eae a ren a pm ie ge ere rete are ag er 


THES ROY B Ie Ceange 1% 16-BIT BINARY NUMBER TO A &-DIGIT 
Ste Slane 


ee 
aus 
weed ;* 
 4aH8 ; 
aie ; VPOS-~ tip a ZEROS AND NUMBER OF DIGITS TO TYPE 
conte -(SP) $3 
wee + So mA, -€8 HORE FoR TY eQuTee 
44E5 3% .BYTE NN FOR NUMBER OF DIGITS TO TYPE 
4455 i -BYTE sine oR 8 enn tnetiees 
; 7315 
ae i tide RE S LEAD Re ROS © 
wee #STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
#460 i #STYPOS OR $TYPOC 
te hy "toy NUM, -(SP) ;;NUMBER TO BE TYPED 
446 ; YPON ::CALL FOR TYPEOUT 
4465 
H4E5 


;* 
;#$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 





oe 


fo 
rm 


SBURONONS 
RARE RE RERRR RARER 


= = & = = b= b—: B= b= & = 0 B= B= bb 2 b= 92 hho = Be Oe bo Bo he he 


F2NSF LELSESRERS PNG EHORLERS 


WO VHUNEWN-O 
forororore 
ean 


Patuturutatatataturar il 


a 
RR 
SN 
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15:36 BINARY 70 OCTAL (ASCII) AND TYPE SEG 0099 
;#CALL: 
1% MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
t+ TYPOC !:CALL FOR TYPEOUT 
ROD eee ee eee, PT RO FIcL SuITCH 
Seeees : Hove Pe: OMOBE+1  :NUMBE Re bre” 0 TYPE 
ADD #2, (SF) : ;ADJUST SE TURN ADDRESS 
1 022217 S$TYPOC: FR vg ST SOPILL :;SET THE ZERO FILL SWITCH 
Sezeel MOVE #6, SOMODE+1 >:SET FOR SIX(6) DIGITS 
000005 O222i& S$TYPON: MOVE aS, SOCNT ii3eT THe ITERATION COUNT 
MOV R3'-(SP) 
HOV RY, ~ (SE) ss SAVE RY 
022221 Nove S5H00 +1,R4 tie fe NUMBER OF DIGITS TO TYPE 
a00 we. Schone ‘3 yeTRA T me FOR MAX. ALLOWED 
gasad he Cr ater 
CLR R3 tTCLEAR THE OUTP UT DRE 
1S: ROL Re i ROTATE MSB INTO “C™ 
2s: a R too Rn ote DIGIT 
ROL RS 
Aoy | ORELRG 
38: ROL R32 ::GET se OF THIS DIGIT 
022220 ECE $9MODE :3 TYPE TH HIS DIGIT? 
L $ ;;BR iF 
177770 81¢ #177770,R3 ::GET RID OF JUNK 
4f ;;TEST FOR 9 
Begs $s RUPEES, WIS 0° 
4$: NC RY ::DON’ T_SUPPR $s ANYMORE O'S 
000060 1S #'0,R3 3MAKE THIS DIGIT ASCII 
S$: BIS #’ (R32 3 ;MNAK BScit F NOT ALREADY 
2214 MOVE R3,8S ::SAVE F ING 
022214 TYPE o¢ ::G0 TYPE THIS DIGIT 
022216 7$: DECB $OCNT : COUNT By 
ye ies fe be"? 
ri 4 RSURE LAST DIGIT 1S ISN’T A BLANK 
2s s+ INSURE THE 
6$: MOV (SP)+,R5 ;;RESTORE RS ~ 
MOV (SP)+,R4 5 sRE STOR ws 
MOV (SP)+,R3 ;;REST a 
oocod2 op0004 MOV (SP), (SP) ::SET THE STACK FOR RETURNING 
wy (SP)+, (SP) TURN 
tE .BYT STORAGE FOR ASCII oP RBS 
‘ ite ;; TERMINATOR FOR TYPE ROUTINE 
T: .BYT : :QCTAL ier COUNTE 
ae Shes BYTE 5 ZERO F 


; ;NUMGER OF Brarts TO TYPE 


+z 
un 


PEM PARAM AS 


OS5555 
022234 
022240 
Oeee44 


O2eeS2 
BSceoe 


Oeeet2 
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BINARY TO OCTAL (ASCII) AND TYPE 


.SBTTL TYPDSS - TYPE DECIMAL, LEADING ZEROES SUPPRESSED 


180 TINE FOR TYP IMAL NUMB E SE 
our 1s Ler cert Su sr FIED. NOTE Re OBES rRady Ane ave sEase 
CAL MOV NUMBER 0) sp) ;PUT BINARY NUMBER ON STACK 
: TYPDSS :G0 TYPE DECIMAL 
TYPDES: Vv ai P) 
v 288, eat Ai ON Ties STACK 
ISR Bc 490820 NARY NO. TO 
iaschl st RING. 
ISR PC, JaSSUPRS GO OUT DECIMAL STRING 
:SUPRESING LEADING O'S 
MOV 2(SP).4(SP) "ADJUST RETURN 
MOV (SP), 2(SP) 3 ADIUST RETURN ADRES 
TST (SP)4 :POP STACK 
RTI sRET 
18: .WORD 0,0 


.S8TTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


 RERREREREEREERELLERRAA AREAL ERER ELLA EERE ALLA S ARLE AER EERE ERE 
ETHIS R ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
;*#LEADING NUMBERS. 


te MOY SNUMADR,-(SP) ;;FIRST ADDRESS OF ASCIZ STRING 
:# ISR PC, a8SSUPRS 
SSUPRS: MOV RO, -(SP) RO 
MOV 4(SP), RO HPI THE POINTER 
1$: T 18 £R0) 37 RING al TEOR? 
CMPB saw, (ROD+ 3315 THIS AN ASCII “0” ? 
Q i ::BR IF 
2s: C ;;BACKUP BY "1" 
HOV RO, 3 ::SAVE FOR TYPING 
2S: TORO 0 +e IS BoINTER GOES HERE 
MOV (SP)+,RO 33R 
MOV (SP)+, (SP) ; RESTORE THE STACK 
RTS PC ; ;RETURN 


.SBTTL SAVE AND RESTORE RO-RS ROUTINES 
$ Ee Ree ete anes berets ae ne 
hcp VE RO-RS 
ee 

SAVREG 
t SUPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 


sé 
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4578 
4579 


si 


cusssetaseasensesessenenss 


FEEEEKEE 


SOR GRR OREO 


ne 
fe 


4633 


BOWER LOLS 
fo 
rm 
‘ 


ONMOU £m O 
Rig 


Oee42e 
Oz2440 


Bonn 


| oe) oe | oe | oe) oe) oe) oe) oe] 
oor 


ale) 
—-rT 


e 


000022 
poones 
000022 


ef 
Bade 


6 


MACY11 27(1006) 
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04-OCT-76 


3 #TOP---( +16) 
1# $2---(418) 
r# $4---R5 
1# +6---R4 
;# +8---83 
:#+10---Re 
;#+12---R1 
;#+14---RO 


$SAVREG: 
M 


KO8 


14:26 PAGE 85 
SAVE AND RESTORE RO-RS ROUTINES 


RO,-(SP) 


pe Tone RO-RS 


SRESREG: 


;# 
i* RESREG 


(3633758 (Be) 
(26)3'85 (ep) 
(SP)+, 22(SP) 
(SP)+ RS 
(SP)+,R4 
(SP)+,R3 
(§P)+, 82 
(SP)+,R1 
(SP)+.R0 


PUSH RS ON STACK 
He: PS OF MAIN FLOW 
SAVE Ps OF ty FLOW 


HEINE Be OF gat 


;;RESTORE PC OF CAL 


| RESTORE Pe 3F cat FLOW 


;;REST 5 aro me IN FLOW 
;;POP STACK 
;;POP STACK 6 Ra 
3; POP STACK INTO R3 
;P0P STACK 0 Re 


INT 
: PoP STACK INTO Ri 
;;POP STACK INTO RO 


.SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
5 ERRERARERERAEARERARAERA LEA LA EERE LAER ERE EER EERERRAAALEAERLELERS 


ae net (ASE 


aes MOV 

:# JSR 

;# RETURN 

$OB2D: SAVREG 
MOV 
MOV 
MOV 
MOV 


WILL CONVERT A 
i NUMBER. THE 


SPNTR -(SP) 
, 98$0820 


215 
asec. RO 
RO, 2(SP) 


(R2)+, Ri 


ont BINARY NUMBER TO AN UNSIGNED 
OF THE BINARY NUMBER MUST BE 


;;POINTER TO LOW WORD OF BINARY NUMBER 


;; THE FIRST ADDRESS OF ASCIZ 
3;1S ON THE STACK 


33 SAVE 

ssPICKUP Pe ‘Bata, port 

$3GET AD SDECVL™_ STRING 

tIBUT ADDRESS OF ASCT? STRING ON STACK 
;;PICKUP THE BINARY NUMBER 


08 


MAINOEC- L1-DZRKL-D MACYLL 27(1008) O4-O0CT-76 14:26 PAGE 96 
31-AUG-76 15:35 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
a wB34 O22442 O12202 MOV (R)+, Re 
4635 O22444 O1g?37 o00012 o22se0 NOV #10 we 4s - $1 SFT YE.T9_00, 10, CONVERS IONS 
23 RSS iEE BLS bs RSEEx6 HOV HrPiRte, PS a oes 
ae38 BESTeS aca if: Sue Ba) RL 3S AB oR ! N tpoWER 
4640 OeD466 005602 Sec R2 
4641 O22470 161502 SUB (RS) ,f.2 
23 B88 Bee OB Alot Teo ee 
4644 O2247—6 000772 BR 23 - 
445 022500 Obe401 2S: Bo (Ra, 1+,R1 + er ORE SUBTRACTED VALUE 
Brat BsSeb6 062402 ADD (R4)+,R2 
4648 022506 O22525 CMP (RS)+" (RS)+ ;;MOVE TO NEXT TEN POWER 
4649 022510 0527093 o00060 BIS #°0,R3 : 5 CHANGE PARTIAL TO ASCII 
4650 022514 110320 MOVB 3, (RO)+ ;;SAVE IT 
| #5! 16 327 EC (Pe) + :: DONE? 
46 peseee Boy ae? : BNE 1§ $388, IF No 
4654 022504 105020 CLAB. 2s (RO) : TERMINATOR 
| 4655 OeeSe6 104414 RESREG {RESTORE REGISTERS 
| 4656 022530 000207 RTS PC : :RETURN 
1557 Jecbse 195009 STNPUR: 145000 31.0E09 
| 4659 022536 ta 00 160400 :;1.0£08 
4eey Seeds fiSe88 {3200 1.0607 
| 4662 O22544 000530 parti 
163 beesye 041100 041100 31.0E06 
—«HBES bee5be 103240 103240 531.005 
| sees besces peat ro signed 
4669 Oe2sbe 001750 1750 :;1.0£03 
«4g? Secor? at 144 1.0£02 
“ 022570 Bocaed a 
| 4673 022572 000012 12 :31.0E01 
B5Se7e Spooot 1.0€00 
| 5 Bee Be : 
| 1677 Oeee0e 900014 SDECVL: .BLKB 12. ; ;RESERVE STORAGE FOR ASCIZ STRING 
4679 
WEED 
4681 .SBTTL TRAP DECODER 
WEES © RELKEEKES RAL ELAR LAA SSAA RASA HAAAELLAAARELAESASRASA SEARLE ARARAAAER 
4E84 :ATHIS jBOUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
WEES :#AND USE ate 0 INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
HE EE ; #0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
4£87 #60 TO THAT ROUTINE. 


4658 
4689 Oeeble O10046 yee MOV RO,-(SP) ;;SAVE RO 


a a 11-DZRKL-D MACY11 27( 1006) Be Be cope 14:26 PAGE 87 
OZRKLD.P11 15:38 TRAP DECODER 


31-AUG-76 SEQ 0103 
4690 022620 016600 900002 Nov 2(SP),RO :3GET TRAP ADDRESS 
sea) eee Tos MBvB TRODORO RBS OEY Byte of TRAP 
wea BS 022652 NOY —/ RO $300 eBex 0 Th a TF pea 
4635 tear tse RTS 2 : ith TO ROUTINE 
4697 
1638 :;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
Pag O22640 O11b46 $TRAP2: MOV (SP), -(SP) ;MOVE THE PC DOWN 
4701 O22642 O16666 000004 oD0002 MOV 4(SP},2(SP) t EMOVE THE PSW DOWN 
1208 022650 900002 RTI ::RESTORE THE PSW 
plata .SBTTL TRAP TABLE 
4706 ;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
4207 :#BY THE “TRAP” INSTRUCTION 
4703 : ROUT INE 
4711 Oeeese o22640 $TRPAD: .WORD S$TRAP2 
4712 O22654 020174 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
4713 O2c656 Oe2020 STYPOC ::CALL=TYPOC  TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
4714 Q22660 021774 TYPOS ;;CALL=TYPOS — TRAP+3(104403) TY YPE OCTAL NUMBER (NO LEADING ZEROS) 
4715 Oecebe 622034 TYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
471 022664 017750 STYPDS ;:CALL=TYPDS | TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
1718 022666 021070 SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
4720 022670 o21000 SCKSWR ;;CALL=CKSWR | TRAP+7(104407) TEST ad: CHANGE IN SOFT-SWR 
We 022672 021302 SRDCHR ;:CALL=RDCHR | TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
4722 O22674 021372 SROLIN ;3:CALL=RDLIN TRAP+11( 104411) TTY TYPEIN STRING ROUTINE 
4723 Deee76 167 $200 T 3;CALL=RDOCT ab+le(t 4412) READ AN OCT R FROM TTY 
47 2 SAVREG ::CALL=SAVREG TRAP+i3(104413) SAVE RO-RS ROU 
ives 022702 O22364 SRESREG ::CALL=RESREG  TRAP+14(104414) RESTORE RO-RS ROUTINE 
ie? 022704 016526 CN.RST ;;CALL=CON.RESET TRAP+15(104415) CONTROL RESET ROUTINE 
ies 022706 O16414 DR.RST ;;CALL=DRV.RESET TRAP+16(104416) DRIVE RESET ROUTINE 
iat 022710 015770 MSGE  ;;CALL=MESAGE TRAP+17(104417) MESSAGE HANDLER 
4733 022712 016032 TY.MSG ;;CALL=TYPMSG TRAP+20(104420) MESSAGE TYPEOUT ROUTINE 
| 4738 022714 O1eS44 CN.RDY ;;CALL=CON.RDY TRAP+21(104421) WAIT FOR CONTROL READY 
We 022716 Olee42 TSTRWS ;;CALL=TST.RWS TRAP+22(104422) TEST R/W/S RDY SET 
4733 022720 16440 RES.DO ;;CALL=RESDON TRAP+23(104423) DRIVE RESET DONE? 
“I 022722 Oez222 TYPDES ;;CALL=TYPDSS TRAP+24(104424) TYPE DECIMAL, SUPRES LDG 0’S 
4743 
4744 .SBTTL POWER DOWN AND UP ROUTINES 
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POWER DOWN AND UP ROUTINES 


s FLELASLALRALEFLEEAALLLLE FE LERAAELELAEARELAERALELLEFLELAELSSE RFE 


R DOWN ROUTI 
r PURVEC T FOR FAST UP 
AE BOREL f 
MOV USH 20 ON STACK 
MOV AT ncep) art Ri ON STACK 
MOV Re; -(5P) ::PUSH Re ON STACK 
MOV R3.-(SP) : BUSH R3 ON STACK 
Ry’ -(SP) USH R4 TACK 
MOV RS’ -(SP) + BUSH RS ON STACK 
MOV aSWR, -(SP) PU SH aSWR ON STACK 
MOV SP, SSAVRE 
NOV fy pes UP VECTOR 
~  &R 8 ;;HANG UP 
eat ee Gaede ee ae 
WER 
$PWRUP: MOV #SILLUP, O#PWRVEC ;;SET FOR FAST DOWN 
MOV SSAVRE, SP thet s 
CLR SSAVRE ::WAIT st oor FOR THE TTY 
1S: INC SSAVRE shalt FOR THE INC 
BNE. 1$ ORD 
MOV (SP)+, ISWR “POP STACK INTO 2SWR 
MOV (SP)+'R5 ii BOE STACK INTO RS 
MOV (SP)+'R4 ::POP STACK INTO RY 
MOV (SP )+°R3 ::POP STACK INTO R3 
MOV (SP)+'R> : TACK INTO Re 
MOV (3P)+,R1 ; POP STACK INTO RI 
MOV (SP)+:RO :POP STACK INTO RO 
MOV #SPWRON, DBPURVEC’ 3 joer UP THE POWER DOWN VECTOR 
MOV 340, J#PWRVEC+2 jPRIO 
TYPE REP i ue POWER FAILURE 
SPWRMG: .WORD $POWER BOMER FAIL MESSAGE POINTER 
MOV (PC}+, (SP) RESTART AT P 
SPWRAD: gHORO PWRFL + ;RESTART ADDRESS” 
SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
BR 2 :: BEFORE THE POWER DOWN WAS COMPLETE 
SSAVRG: 0 ::PUT THE SP HERE 
OWER: .ASCIZ <15><12>"POWER™ 
EVEN 
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Pll 31-8UG-7E 16:2 
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FUNCTION SELECTION PROGRAM 


.SBTTL FUNCTION SELECTION PROGRAM 
sTHIS JS THE cue te SELECTION PROGRAM 


3 0N ENTER: NG THIS S “fhe ee THE FIRST asa ion “ASHER IS a 
FUNCT {YPe IN ONE OF OLLOWING COMMANDS. 


; ON? 
: TOMMANDS CR - conte its 
: DR - ERE aie 
; Sk - My 
: WR - WRITE 
: RD - REA 
: We - WRITE CH TE CHECK 
eae’ EVERY Wd “a <CR>, FURTHER TI 
aioROS Cr Be BeED. ty ie ie one gus, BOD nodes ae, wont roc heorets 


SIU AOER OF oe ; SRON-ENISTENT Sec TOR Is TYPED ih. THe dation” (RKOR?) WILL 


;IN C OF SEEK FUNCTION, SEEK heey TWEEN A SET OF CYLI RS GIVEN 


:BY T ER Gilde YL2?). (CYL1?, CyL2?) TYPE IN THE OCTAL 
:CYLI WEEN Eten THE SEEK Is Tf TCH 

: REGISTER Bree <]S-13> TO THE DRIVE & ON WHICH SEEK IS TO BE DONE. 

IN CASE OF A WRITE FUNCT ION J Sui O 1S 1S SET TO 1 THE PROGRAM WILL ASK 

; THE vSER afer FOR, THe Pa TERN TO iF BR 


ing user EIN THE (OCTAL) PATTERN HE WANTS TO WRITE. 
NO ros HAT a te Po af OF WORDS TRANSFERRED SHOULD BE WITHIN THE 


SAT Rak Tee Eve om. fo Be white cece: 


THE USER” SHOUL IN THE (OCTAL) PATTERN TO BE WRITE CHECKED. 


iSeese Oearion NG rae ey in rere PabG SRER on Yon nas = 
i i¥SE BAY Y PRUE Fo obta'T cre LONG AS IT DOES NOT "Sveacay 


? SEER I POE AMG PIN EOE 
iI mbt elt FiNCTION FRROR Bec ORs, Y is POTRED , 


; RELEVANT REGISTER CONTENTS GIVEN. 


Ran oe CONTENTS 
if RS if Aru) 8S BETWEEN 


Su 3 UF. 
over RGRIN. 


FUNBEG cam 
he 6s$ ne ge TRIN 
oe b4 “3 je oven 5 nace, 
ages: -AScIZ <B> /FUNCTION 
"  RDLIN 








RRA 
fu 


i 
rab 
wo 


i 


PRRAR eS aay 


é&é 
otal 


SRR REE RNR 


S55 
BRR 
ay? 


stares 


“ 


rrRusere Tecgd! E71? ONO Be eCHESS Pacerae SEG 0106 


a 
© 


fess Bk 
ois: 000127 ies : et 
121027 900122 CMPBSs«CRO}, BR 
3938 024000 J #8 CHKSWO :CHECK SW O SET? 
12702 04003 MOV #4603, R2 


iis 000103 1s CMPS cats * 
473? D240 i HK SiO CHECK SW 0 SET? 
012702 35555 MOV #4007, Re 
006523 BR NXTDA 
000067 MOV a7 
BR siti 
420127 000122 23: CMPB #1 8°R 
12102? 00104 oe bo). 0 
BNE es 
le?oe o0000S MOV Re 
BF NX? BA 
i 000103 es: MPS (ROD) aC 
é BNE FUNSEG 
1 000013 MOV #13,Re 
1 gf NxTOA 
1201 000104 3S oMPE ye? 
] 00co (RO). 8°R 
—— Bi 
socteas Be’ TOA 
at 000193 4g; CMPB B.are 
t 000122 Eee *Ro) a’R 
SNE FUNBEG 
000001 MOV 81 
BR EXEC 
27 000123 S$: CMPB CORLL 8°S 
ee one 
sie : ENE’ Funate 
j 000011 MOV #11,Re 
&$: 
1 023352 T 67$ s; TYPE ASCI TRING 
cata he bes GET over su AsCIZ 
33678: .ASCIZ /CYLI? / 





DOS 
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DIRKLD.P11 © 31-AuG-76 15:35 FUNCTION SELECTION PROGRAM SEo 2107 
4903 023362 bes: 
4308 3362 OO47T37 022746 is PC, INPT 
es Rov RM 
4S0, 
4308 7s: 
4925 023400 TYPE 69S +3 TYPE ASCIZ STRING 
4810 a 3§ :GET OVER THE ASCIZ 
43] / --69§: .ASCIZ /CYL2? / 
45] £8$: 
4913 023746 JSR PC, INPT 
4$14 re 
“Sis MOV RO,RS 
436 155514 MOV 9SHR,RO ;GET ORIVE # FROM SW REG<15-12) 
43] EL es 8177?7,R0 :CLR UNWANTED SITS 
48is BIS RO, RY EET DRIVE 8 IN DSK ADRES 
4335 ars ROLRS 
8 EXEC 
452] : 
s355 NXTBA: 
4S24 SE 2444 TYPE &s$ :; TYPE ASCIZ STRING 
<S25 BR b4§ ::GET OVER THE ASCIZ 
+38 --65§: .ASCIZ /RKBA? / 
b4s: 
#838 104412 ROOCT 
4523 02345 612637 01476 MOV (SP)+, INDX2 
432 peree NXTDA: 
+ 104401 023470 TYPE S$ ss TYPE ASCIZ STRING 
4333 023466 300404 ii ae + GET OVER THE ASCIZ 
4935 022500 a b4g: : 
ee BT ae. 
4938 022504 010001 MOV RO,R1 
3335 l BSF Ri 
4940 02351 1 ASR RI 
— 31 l ASR RI 
“3+ 14 ! ase R} 
484 it 1 ASR Ri 
$355 77409 BIC 8177400.R1 
“S45 Arash CMP Rl. #31 
ai - BGT NxtOA 
364 Hx 10001 MOV oR 
4 Are BIC #177760,R1 
M ¢ 40 edie? rf ME 1 
9855 44 BGT + 
33¢ MOV RO Fz 
4 oo001§ CMP 815, Re 
+ 14) BEO exe 
se 
43e7 | beste 1 023664 wine wan STYPE ASCIZ STRING 
ugee 55 cata : BR bug GET OVER Fue asclz 





ee ee ee + ee 


EQ9 
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SDRC Pay : 31 -auG-7E iss FUNCTION SELECTION PROGRAM 
4959 -:65$: .ASCIZ /sWORDS? / 
4960 023576 £4: 
491 0235 412 RDOCT 
~ 416 ie (ae) 
4 35 ? 901502 MOV (SP) +, INDX4 
13 623606 600401 ge EXEC 
4 EXECL: CON.RESET sCLR EROR, CONTROL RESET 
496 B53ei8 403783 000011 EXEC: CMP #11,R2 : SEEK FUNCTION? 
iae8 oe 4,R3 Ye SEEK, INSERT THE RIGHT 
“5 051402 Q 3$ sCYLINDER ADDRESS 
| +30 nee 610403 HOV RY, R3 
- - 3 MOV R 
| 9665 BS5e55 iets oory7e isseee Be: | MOY TRONS. ORKBA 
| 4975 O23640 010377 155620 MOV R32, IRKDA 
as Bee fey fue oa 
| 4372 23656 105 155574 1S: TSTB aRkCS ;WAIT FOR CNTROL RDY 
| 45 OSSeen 278 00001 CMP 81, Re SIF IT'S CON RESET FUNCTION 
' 4981 023670 00140! Q ~E sDONT WAIT FOR R/W/S RDY 
| 4982 023672 104423 SDON :R/W/S ROY? 
43 023674 032777 140000 ISSSS4 4g BIT #140000,9RKCS ; ERROR? 
4985 023702 001 BNE FUNERR : YES i 
| 4 923704 000010 155226 CHSW ; #513. ; TERMINATE THIS FUNCTION OR REPEAT? 
~ 1 3 
1368 BS3ei5 503 023106 IMP UNBEG : TERMINATE 
} 
, $890 
; 4 1110 FUNERR: MOV 8EXECI,SLPERR  ;SET UP FOR LUPING 
ee a eee ac 
| 4993 023734 004737 O1615¢ ISR PC, GTHRG 
3535 ose RROR 30 ;REPORT ERROR 
| 4235 Dears ibwi8 ON. RESE :CLR ERROR 
4 
NPT: CT 
«ages «BER APR : mov PSs. RO 
| $000 023752 620027 oco0z12 CMP RO, sale 
} AN 30h 8 T } 
a NE 200 a 3 
| ie, 20 = 
! ANe 200 ASL 
| §005 023766 ee ASL RO 
#2, (SP) 
BeBe . ROE 
155132 CHKSWO: BIT 8SWO, ISWR ;WRITE A PATTERN GIVEN BY USER? 
fee aig oo nO r 
| i ess eae Bets TRING 
T Hn 
| ae i cata wen one bug ;;GET OVER THE asci2z 


ae eee 





re ee er 
wD aor 


BOooo 


PPP Perera yy 


0-< 20+ 6-+b-- > +0 2b +6 +0 +00 +d +6 2+ 9 


06 
e 


=o 
tu 


vee yey a 
RED: 


ya 
eS 


St 
8 
8 


Q as 


g 


Or-ooO 
1 


wren rommmmammnrmmmnnenanarnns 
ue 
“fg 
Af 
be | 


eRe UnVMUICNN SESE EE Ae? cae ut ERE oN ya 
Pot TITRE SREB PR 
ae 


~ - 
~ 
~ 
+ ~“ ££ 
Sa 0 (Fo 9 


BETES 
SEF 


a 


% 
aes 


z 


es 


8 


2 
~- 
or 








047111 


001476 


bbi280 


001230 


9183 


1§5330 
155326 
iSS304 


001230 


(ee I0BUF 1 
sTosurl, NOX2 


FCHECK: DRV.RESET 
gON- RESET : 
i HR BRS 
giC #20000, DRIVAD 
HG RN oe 
; RV aa ii orks 
MOV DRHOLD, RKDA 
CON. ROY 
be #100, IRKDS 
3g mov GRAOLD, DRIVAD 
mk 
ser: GA ve 
4$: TSTB) 3s (RO) 
Q $ 
ie RO) 
3k RS. FCHECK 
HE i 
2s: = (RO)+ 
iat (RO)+ 
CMP SORT ST eo 
ee ee 
;ERROR MESSAGES 
EML: -ASCIZ 


EMe: -ASCIZ /SIN ON SEEK/ 


;SAVE THE PATTERN 


;SKIP NXT 2 INST ON RETURN 


;SAVE DRIVE ADRR 
;SEE IF O00 
;MAKE EVEN 
serve affiare 000 
: DRIVE SEEK 
sOTHER DRIVE 
sHEAEDS IN MOTIONN? 
;NO_SO RK-OSJ 


;YES RK-OSF 
;RESTORE ADDR 


;START AT_DRO 
;TABLE OF AVAIL DRIVES 
THIS DRIVE HERE? 


sNO 
COMPLEMENT HERE? 
SEE IF F MODEL 
:J MODEL 
:SET SIGN FOR F 
;BOTH DRIVES 
NEXT PAIR OF DRIVES 
:NEXT ACTUL ADDR 


apg 


/CNTRL RDY DION’T SET AFTR SEEK 


MACY11 27(1006) 04-OCT-76 14:26 PAGE 93 
-76 15:35 FUNCTION SELECTION PROGRAM SEQ 0106 
-:65$: .ASCIZ /PATRN?/ 
o2402¢ b4s: 
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FUNCTION SELECTION PROGRAM SEG 0110 
EM3: -ASCIZ /DRE ON SEEK/ 
EM4: -ASCIZ /*ERR’ ON SEEK/ 
EMS: -ASCIZ /ORU ON SEEK, PUT DRV ON ‘LOAD’ & "RUN’/ 
EME: eASCIZ “R/W/S ROY NOT SET AFTER SEEK” 
EN?: -ASCIZ /SIN ON WRT FMT/ 
EM10: .ASCIZ /*ERR’ ON DOING WRITE FMT/ 
EM11: .ASCIZ “SIN ON RO/FMT™ 
EmMl2: .ASCIZ /°ERR’ ON READ FMT/ 
EM13:  .ASCIZ /WRONG HORS FROM ’SEC8’/ 
EM14:  .ASCIZ /EROR ON IMPLIED SEEK FROM *CYLA’ TO ’CYLB’/ 
MSiS: .ASCIZ /READ WRONG HORS FROM 'CYLB’ ABOVE’ 


SES 0111 


HO9 
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FUNCTION SELECTION PROGRAM 
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Pll 
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MA 
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“READ WRONG, IST WRO FROM SEC 0, *CYLB’ (ON IMPLIED SEEK FROM °CYLA’ 
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! x 
9 ur a 
- Me 
- # ; 
J g % = 
« ry Qa Qa 
~ p . Ss § w 
@ 5 Z : § 
- 2 3 8 s w @ 
Q 2 a 5 x 
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i ip @ % ie ¢ 2 &% 
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3; 9 Fa ra Fa 
Ot SP une Oninar  OOn rs SO her Rox 
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ASPESDLSDASPLSDASDASDASDASDASDLSDASDASDES DLS DASDASDASDESDASDLSDESDASDESDASDASDASDESDAsDESDAsDAsDAs DAs DAs DAsDasD DEsDLSDRSDASDAS DRS DAs DODD 


2522 042101 53440 EM20: 
Beles Bacebe colds *™*** 


31 
l2 
: 
r 
= 
1114 
7 
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117 
113 
} 
1 
1 7 
ni BE 
1 0S0s 
025312 O40S04 O40S24 O42440 EN2S: 


7See 
1104 
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aS 
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1811 
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‘hae wy o wn 
ee é tt é 
iS 
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oe a © 2 re 2 
path Fe ¥ a ‘ 
™N tJ ™N ™ ™N ™N 
s 8S Be & . tS 
e € #8 & Z 2 
w 
= rs] = “ Po 
# & FS z £ 6 
7 Q-« wor or tj OmMmoorw | Qa Qo 
oe = & S eS es ‘ 23); 
auze 82 28 8 rae Mes rmanes 
qn OF ze ue ace ans 8 
Mia ee SE & sale 
Yoru 2u Min oF aaa Fra zane 
su Om = 
Haccay gua BB 8 we q Raan is 
Bisse, vai yz, Ps 
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ee aes le --— _-_—— --- 


SEC’ 


RKDA: OR CYL SUR 


PC RKCS RKER RKDS 


-ASCIZI/ 


—- 
. 


HOR RCVD/ 


/SECS 


-ASCIZ 





MAINOEC-11-DZRKL-D 
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a Bee ti 
5256 
5257 026037 O40 
252 See ae 3%, rete 
ese) Sener Sevas 
25e2 SEEDS 
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caes 108 
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5268 026124 OS1040 
5562 026132 3040 
ah 15 
isd O414 
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5574 026170 O20040 
S275 026176 O4e523 
tesa over 
255, GeeSte BY28G2 
6279 Oebelé 
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FUNCTION SELECTION PROGRAM SEG 0113 
DH14: .ASCIZ + PC CYLA CYLB RKER RKDS TRY 8/ 

DHi6: .ASCIZ ~“ PC CYLA CYLB EXPCT RECVD TRY#/ 

DH17: .ASCIZ / PC CYLB EXPCT RECVD/ 

DH24: .ASCIZ“ PC TRY# RKCS RKER RKDS RKDA: DR CYL SUR SEC’ 

DH2S:  .ASCIZ /WORD® EXPCT RECVD CYL SUR SEC/ 


;ERROR DATA POINTERS 


-EVEN 
OT) -WORD SERRPC,$REGO,SREG1, $REG2, $REGS,O 
DT?: .WORD SERRPC,SREGO, SREG1, SREG2, SREGS, SREGY, 0 





ee eee ee 
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S295 026272 001166 001170 001172 
UR? Bewnsomcsccepes: 

001116 001162 001164 
| 253 10 901166 Bet TSS 5bt tS 
5300 6316 001176 001200 900000 
| 026324 001116 O0116e 001164 

d26332 001166 000000 

5305 026336 001116 001202 o01162 
| §306 O26344 01164 OO1166 00117< 
| §307 O263S2 001174 001176 OO! 
| 5308 026360 000000 

chi 
| 232 

i2 o26362 

5313 026362 000030 

esic Secese | Soposs 

Ese 000630 
«En Be Be 
| i§ 34 pagess 
| §380 OQe7742 00200 

S321 030342 900200 

E32 020742 00210 

£324 031362 001400 

5325 
| §3e6 
| 6357 

£328 000001 
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OTL1: 


OT17: 


DOT24: 


- WORD 


. WORD 


. WORD 


;DATA BUFFERS 
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FUNCTION SELECTION PROGRAM 


KO9 


SES 0114 


SERRPC, SREGO, SREG] , SREG2, SREGY, SREGS, SREGE, $REG7,O 


SERRPC , SREGO, SREG1 , SREG2, 0 


SERRPC, SREG1O, SREGO, SREG! , SREG2, SREG4, SREGS, SREGE, SREG7,O 


Tee 7ee WORES LONG BUFFER 
‘NORMALLY USED FoR DATA TRANSFERS 
:T0 AND FROM DISK 
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